13/04/08 19:44:30.41 x9kuJ0Dl0
>>968
すまんがそういうコード見てるとむずむずするのでfor以下を勝手に整理
ついでにその目的ならDeleteFile()は念のために読み取り専用ファイル削除も指定した方がいいかも
Script:JScript
shell = new ActiveXObject("WScript.Shell");
fs = new ActiveXObject("Scripting.FileSystemObject");
currentPath = WScript.Env('Current');
selAry = WScript.Col(WScript.Env('Selected'));
for (i = 0; i < selAry.Count; i++)
{
filePath = selAry.Item(i);
if (fs.GetExtensionName(filePath).match(/zip/i))
{
filenameStr = fs.GetBaseName(filePath);
shell.Run( 'winrar.exe x -ad -x*.db "' + filePath + '" "' + currentPath + '"' ,1,true );
fs.DeleteFile(filePath,true);
shell.Run( 'winrar.exe a -m0 -ep -dr "' + currentPath + '\\' + filenameStr + '.zip" "' + currentPath + '\\' + filenameStr + '"' ,1,true );
}
}