Создать для каждого файла в папке отдельный архив с именем файла и расширением .zip

@egoistos · Регистрация: 26.05.2015

Author24 — интернет-сервис помощи студентам

Visual Basic

Set objArgs = WScript.Arguments
InputFolder = "c:\Rezerv"
ZipFile = "c:\zip\1.zip"
CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)
Set objShell = CreateObject("Shell.Application")
Set source = objShell.NameSpace(InputFolder).Items
objShell.NameSpace(ZipFile).CopyHere(source)
 
Do Until objShell.NameSpace(ZipFile).Items.Count = objShell.NameSpace(InputFolder).Items.Count
   WScript.Sleep 500 ' Arbitrary polling delay
Loop

Данный код архивирует файлы из папки Rezerv в папку zip(создает архив 1.zip). Подскажите как сделать так, что бы для каждого файла в папке был отдельный архив с именем файла и расширением .zip. Так же подскажите как сделать фильтр, что бы архивировались только файлы с определенным разрешением, например .accdb.

greg zakharov · 30.10.2015, 13:15

egoistos, дык обработку файлом скопом осилили, значит и по одному жать не проблема:

Javascript

(function(src, des) {
  var e, i = 1, itm, zip, shl = new ActiveXObject('Shell.Application');
  
  try {
    with (new ActiveXObject('Scripting.FileSystemObject')) {
      e = new Enumerator(GetFolder(GetAbsolutePathName(src)).Files);
      for (; !e.atEnd(); e.moveNext()) {
        itm = GetAbsolutePathName(des) + '\\' + GetBaseName(e.item()) + '.zip';
        itm = FileExists(itm) ? itm.replace(/.zip$/i, i + '.zip') : itm;
        
        zip = CreateTextFile(itm, true)
        zip.Write("PK\05\06" + new Array(19).join("\0"));
        zip.Close();
        
        shl.NameSpace(GetFile(itm).Path).CopyHere(e.item().Path);
        WScript.Sleep(500);
        WScript.StdOut.Write(itm + '.......created\r');
        
        i++;
      }
    }
  }
  catch (e) { WScript.echo(e); }
}(
  WScript.Arguments.length !== 2
  ? WScript.Quit(1)
  : WScript.Arguments.Unnamed(0), WScript.Arguments.Unnamed(1)
));

Что до фильтра, то достаточно в цикле ввести проверку на нужное расширение (GetExtensionName).

	30.10.2015, 13:15