フォルダ全体をコピーする必要がある場合は、`copy file()`関数を使ってフォルダ内の各ファイルを段階的にコピーできます。`Files In Directory()`関数を使ってフォルダ内のすべてのファイルの名前を取得し、ループ処理でファイルをコピーします。
しかし、コピー先のフォルダにサブフォルダが含まれている場合、`copy file` を使用するとエラーが発生します。実際、コピー先のフォルダ内に複数階層のサブフォルダが存在する場合、JSL の記述が困難になります。
複数層のサブフォルダーを含むフォルダーをコピーする際の問題を解決するための良い提案はありますか?
問題が解決できるほど十分に詳細に説明されていません。
サブフォルダを扱う際にどのようなエラーが発生していますか？サブフォルダ内のファイルを別のドライブ上の同じサブフォルダにコピーしようとしているのでしょうか？それとも、すべてのファイルが1つのフォルダにコピーされてしまうのでしょうか？
Copy Directory() をご覧になりましたか?
// Create Sample Flie in Document folder (a folder with one text file and a sub folder which also have a text file)
baseDir = "$DOCUMENTS";
dir = baseDir || "/" || Substitute( MDYHMS( Today() ), "/", "-", ":", "." );
Create Directory( dir );
theText = "Copy Test";
Save Text File( dir || "/0_Test Copy1.txt", theText );
dir2 = dir || "/" || Substitute( MDYHMS( Today() ), "/", "-", ":", "." );
Create Directory( dir2 );
Save Text File( dir2 || "/Test Copy2.txt", theText );
//Copy Sample Files
Wait( 1 );
CopyFilesList = Files In Directory( dir );
CopyPath= baseDir || "/" || Substitute( MDYHMS( Today() ), "/", "-", ":", "." );
//The error message appears when the copy target is a folder.
For( Count = 1, Count <= N Items( CopyFilesList ), Count++,
Copy File( dir || "/" || CopyFilesList[Count], CopyPath || "/" || CopyFilesList[Count] )
);
上記の例を実行すると、エラーメッセージが表示されます。コピー先がフォルダの場合、エラーメッセージが表示されます。
