Упаковка каталога с файлами в ZIP архив #485977

Как упаковать каталог?

тебе показать как ключи от архиватора смотреть?

For i = 0 To UBound(MyHex) Next If Not oFolder Is Nothing Then Set oFile = Nothing On Error Resume Next Do While (oFile Is Nothing) Set oFile = oFileSys.OpenTextFile(MyTarget, ForAppending, False) If Err.number <> 0 then Err.Clear wScript.Sleep 3000 End If

без первой строчки разумеется

спс

в коде адинес почти так же

зипует только каталог, файлы каталога не архивирует

ScriptControl: A script engine for the specified language can not be created.

да ну - кто сказал ?

проверил

херово проверял

ага, херово :) спс.

че-то не догоню... а как сделать чтобы архивировал все файлы каталога кроме тех, у которых расширение zip?

фильтр поставить на намеспейсу