| |
|
|
| | Как файл разархивировать из кода??? | |
| |
| |
| |
|
|
| | 1. использовать Shell
2. использовать соответствующие DLL - для ZIP в интернете можно найти бесплатные | |
| |
| |
|
|
| |
|
|
| | есть ли конкретный пример? | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=326 | |
| |
| |
| |
|
|
| |
Const sArcPath = "C:\Temp\DB.rar"
Const sMask = "" 'Маска для извлечения. "" или "*.*" - все
Const sDirTo = "C:\Temp" 'Пустая строка - в текущую папку (ту, что возвращает CurDir)
Const fWait = True 'True-ждем пока закончит, False-не ждем
Const iWindow = 1 '1 - обычное окно, 0 - скрытое
ComLine = "WinRar.exe e -o+ """ & sArcPath & """ " & sMask & " """ & sDirTo & """"
'"–o+" - ключ "Перезаписывать существующие файлы без вопросов"
Set wShell = CreateObject("WScript.Shell")
wShell.Run ComLine, iWindow, fWait
Set wShell = Nothing
|
| |
| |
| |
