- 968 名前：954 mailto:sage [2013/04/07(日) 23:41:14.81 ID:dVGdNStI0]
- >>961を複数zip選択でもいけるように改良してとりあえず今回は一件落着した
たびたびスレ汚しすまん
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++)
{
if (fs.GetExtensionName(selAry.Item(i)).match(/zip/i))
{
filePath = selAry.Item(i);
filenameStr = fs.GetBaseName(selAry.Item(i));
shell.Run( 'winrar.exe x -ad -x*.db "' + filePath + '" "' + currentPath + '"' ,1,true );
fs.DeleteFile(selAry.Item(i));
shell.Run( 'winrar.exe a -m0 -ep -dr "' + currentPath + '\\' + filenameStr + '.zip" "' + currentPath + '\\' + filenameStr + '"' ,1,true );
}
}
|
 |
