フォルダ内のファイルのコピペと削除

プロシージャの後ろにフォルダのパスを書いて実行すると
フォルダ内のファイルは全部消えます。自己責任ですよ。

global proc yjp_Dir_in_ALLFileDelete(string $path)
{
if(!`filetest $path`)return ;

string $filelist[] = `getFileList -fld $path`;
string $file;
for($file in $filelist)
{
sysFile -delete ($path + "/" + $file);
print ("delete_" + $path + "/" + $file +"\n");
}
}


プロシージャの後ろに元のフォルダパス　次にペーストするフォルダパスを書いて実行
フォルダ内のデータが全部コピーペーストされます。

global proc yjp_Dir_in_ALLFileCopy(string $srcPath,string $NewPath)
{
if(!`filetest -d $srcPath`)return ;
if(!`filetest $NewPath`)return ;

string $filelist[] = `getFileList -fld $srcPath`;
string $srcfile;

for($srcFile in $filelist)
{
sysFile -copy ($NewPath + "/" + $srcFile) ($srcPath + "/" + $srcFile) ;
print (($srcPath + "/" + $srcFile) +"\n");
}
}