Пока я понимаю почему вы не хотите установить программу для того чтобы сделать это, вы были бы одобренн с линией передачи команд посредника исполнительной которая можно хранить на сервере куда командное файло бежится от, и снабжать ссылками там?
(Если так попытка 7-Zip), то
7Zip's линия передачи команд архивы может побежать от доли, котор вы вызываете командное файло от и не причинить никакие реальные вопросы сети потому что архив был бы исполнен на местной стороне клиента.
Хотя если вы предпочитаете не побежать архив дистанционно, но, то то не будет обязательно для этого архива потому что они очень малы.
Вы можете DL 7Zip здесь:
http://www.7-zip.org/download.html(Если
после этого увидеть ниже), то
Я нашел этот сценарий VB purports, котор нужно сделать точно вы ищете, если их необходимо сделать без любых архивов посредника любого вида, то я попытался бы использовать этот сценарий VB, котор я прикреплялся.
ПРИМЕЧАНИЕ: Я не написал этот сценарий, я нашел его здесь:
http://www.visualbasicscript.com/m53086.aspx
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:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
|
'Сценарий VB для того чтобы ПРОМЕЛЬКНУТЬ архив:
fZip функции (sSourceFolder, sTargetZIPFile)
'Эта функция добавит все архивы в скоросшивателе источника к архиву ЗАСТЕЖКА-МОЛНИИ
«using возможность ЗАСТЕЖКА-МОЛНИИ скоросшивателя Windows» родная.
'Возвращает интежер 0 если все пошло о'кеы.
Тусклое oShellApp, oFSO, iErr, sErrSource, sErrDescription
Установите oShellApp = CreateObject («Shell.Application»)
Установите oFSO = CreateObject («Scripting.FileSystemObject»)
'Скоросшивателю источника нужно иметь a \ на конце
Если право, то (sSourceFolder, 1) <> «\» после этого sSourceFolder = sSourceFolder & «\»
На резюме ошибки затем
'Если ЗАСТЕЖКА-МОЛНИЯ цели существует уже, то уничтожьте ее
Если oFSO.FileExists (sTargetZIPFile) после этого oFSO.DeleteFile sTargetZIPFile, True
iErr = Err.Number
На ошибке переход 0
Если iErr <> 0 после этого
fZip = iErr
Выходите функция
Закончитесь если
На ошибке возобновьте затем
'Напишите fileheader для пробела zipfile.
oFSO.OpenTextFile (sTargetZIPFile, 2, True). Напишите «PK» & Chr (5) & Chr (6) & шнур (18, Chr (0))
iErr = Err.Number
На ошибке переход 0
Если iErr <> 0 после этого
fZip = iErr
Выходите функция
Закончитесь если
На ошибке возобновьте затем
'Начните скопировать архивы в застежка-молнию от скоросшивателя источника.
oShellApp.NameSpace (sTargetZIPFile) .CopyHere oShellApp.NameSpace (sSourceFolder). Детали
iErr = Err.Number
На ошибке переход 0
Если iErr <> 0 после этого
fZip = iErr
Выходите функция
Закончитесь если
'Потому что копировать происходит в отдельно процессе, сценарий как раз будет продолжаться. Побегите a… ПЕТЛЯ предотвратите функцию
'от выходить до архива не быть законченный промелькивать.
Не сделать до oShellApp.NameSpace (sTargetZIPFile). Items.Count = oShellApp.NameSpace (sSourceFolder). Items.Count
WScript.Sleep 500
Петля
fZip = 0
Функция конца
|
