- 974 名前：名無しさん＠お腹いっぱい。 mailto:sage [2013/04/08(月) 19:44:30.41 ID: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 );
}
}
|
 |
