|
v7: Работа с zip-ом |
☑ |
0
palpetrovich
22.08.14
✎
12:45
|
Есть что-то типа ЗаписьZipФайла, ЧтениеZIPФайла?
или пользоваться КомандаСистемы либо ЗапуститьПриложение?
|
|
1
ДенисЧ
22.08.14
✎
12:46
|
Штатно - нет
|
|
2
Crush
22.08.14
✎
12:47
|
(1) Как же нет?!
Есть!
|
|
3
Crush
22.08.14
✎
12:48
|
-(2) упс:) Это про семерку:)
|
|
4
ДенисЧ
22.08.14
✎
12:51
|
(2) (3) Садись, два ))
|
|
5
palpetrovich
22.08.14
✎
12:54
|
пасиб
|
|
6
DGorgoN
22.08.14
✎
12:54
|
(0) Устанавливаешь 7Zip ну и командной строкой..
|
|
7
ptiz
22.08.14
✎
12:57
|
Zip.exe через командную строку замечательно работает
|
|
8
palpetrovich
22.08.14
✎
13:17
|
(6)(7) я понял, спасибо
|
|
9
Torquader
22.08.14
✎
21:52
|
Можно "покопать" в сторону Shell, так как explorer.exe умеет распаковывать zip-файлы, то и по OLE им можно порулить.
|
|
10
vcv
23.08.14
✎
08:26
|
Где-то так:
'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
|
|
11
vcv
23.08.14
✎
08:29
|
в 1С++ у объекта BinaryData есть поддержка zip
Zip
Синтаксис:
Zip(Команда)
Назначение:
сжимает файлы внутренним архиватором. Метод не влияет на состояние и на данные объекта.
Параметры:
Команда - тип Строка. Командная строка архиватору. Формат командной строки:
[-s[пароль]] имя_и_путь_создаваемого_архива имя_и_путь_архивируемого_файла(ов)
Unzip
Синтаксис:
Unzip(Команда)
Назначение:
разжимает файлы внутренним архиватором. Метод не влияет на состояние и на данные объекта.
Параметры:
Команда - тип Строка. Командная строка архиватору. Формат командной строки:
[-s[пароль]] имя_и_путь_архива путь_к_каталогу_назначения
|
|