2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« ZIPファイルを作成/追加/置換するバッチファイル | トップページ | ZIPファイルの中身を一覧するバッチファイル »

2007年4月10日 (火)

ZIPファイルの中身を削除するバッチファイル

DeleteZIP.CMD ZIPファイル ファイルまたはフォルダ名...

@if(0)==(0) ECHO OFF
CScript.exe //NoLogo //E:JScript "%~f0" %*
GOTO :EOF
@end
var Usage="Usage: DeleteZIP.CMD ZIPfile files...";
if(WScript.Arguments.Count()<2){
  WScript.Echo(Usage);
  WScript.Quit();
}
var ZIPfile=WScript.Arguments.Item(0);
var fso=new ActiveXObject("Scripting.FileSystemObject");
if(fso.GetExtensionName(ZIPfile).toUpperCase()!="ZIP"){
  WScript.Echo("Invalid Extension Name -",ZIPfile);
  WScript.Quit();
}
var Shell=new ActiveXObject("Shell.Application");
var Folder=Shell.NameSpace(fso.GetAbsolutePathName(ZIPfile));
for(var k=1;k<WScript.Arguments.Count();k++){
  var FileName=WScript.Arguments.Item(k);
  var FolderItem=Folder.ParseName(FileName);
  if(!FolderItem){
    WScript.Echo(FileName,"- Not Found.");
    break;
  }
//  FolderItem.InvokeVerb("delete");
  FolderItem.InvokeVerb("削除(&D)");
}
WScript.Quit();

« ZIPファイルを作成/追加/置換するバッチファイル | トップページ | ZIPファイルの中身を一覧するバッチファイル »