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
|