Где-то так:
'The location of the zip file.
ZipFile="C:\Test.Zip"
'The folder the contents should be extracted to.
ExtractTo="C:\Test\"
'If the extraction location does not exist create it.
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
fso.CreateFolder(ExtractTo)
End If
'Extract the contants of the zip file.
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing
Zip
Синтаксис:
Zip(Команда)
Назначение:
сжимает файлы внутренним архиватором. Метод не влияет на состояние и на данные объекта.
Параметры:
Команда - тип Строка. Командная строка архиватору. Формат командной строки:
[-s[пароль]] имя_и_путь_создаваемого_архива имя_и_путь_архивируемого_файла(ов)
Unzip
Синтаксис:
Unzip(Команда)
Назначение:
разжимает файлы внутренним архиватором. Метод не влияет на состояние и на данные объекта.
Параметры:
Команда - тип Строка. Командная строка архиватору. Формат командной строки:
[-s[пароль]] имя_и_путь_архива путь_к_каталогу_назначения
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший