'работа с WinRAR
Sub Rar_UnRar()
Dim RetVal
Dim WinRarApp$, iFileName$, iArhivName$, adr$
'Архивируем файл C:\Temp\Test.xls
WinRarApp$ = "C:\Program Files\WinRAR\WinRAR.exe a -ep -df "
' a - заархивировать
' -ep - исключить пути из имён
' -ep1 - исключить базовую папку из пути
' -df - удалить файлы после архивации
iArhivName$ = "Test.rar"
iFileName$ = "C:\Temp\Test.xls"
adr$ = WinRarApp$ & """" & iArhivName$ & """ " & iFileName$
'или adr$ = "C:\Program Files\WinRAR\WinRAR.exe a -ep -df " & """" & "C:\Temp\Test.rar" & """ C:\Temp\Test1.xls"
RetVal = Shell(adr$, vbHide) 'vbNormalFocus)
'Разархивируем архив C:\Temp\Test.rar
WinRarApp$ = "C:\Program Files\WinRAR\WinRAR.exe e -o+ "
' e - разархивировать
' -o+ - перезаписывать существующие файлы
iArhivName$ = "C:\Temp\Test.rar"
adr$ = WinRarApp$ & """" & iArhivName$
'или adr$ = "C:\Program Files\WinRAR\WinRAR.exe e -o+ " & """" & "C:\Temp\Test.rar" & """ C:\Temp\"""
RetVal = Shell(adr$, vbHide) 'vbNormalFocus)
End Sub
Работа с RAR архивами
Такой вопрос.
Нужно все что в архиве(RAR) извлечь в папку с названием архива (имя архива будет браться из переменной)? Подскажите пожалуйста.
Нужно все что в архиве(RAR) извлечь в папку с названием архива (имя архива будет браться из переменной)? Подскажите пожалуйста.
Поэкспериментируй с запуском EXE'шника WinRAR'a, а в качестве параметра передай путь к архиву.
идем сюда http://www.rarlab.com/rar_add.htm и качаем UnRAR.dll, а точнее UnRAR dynamic library for Windows software developers и смотрим в нем примеры для VB по работе с архивами rar.
Уважаемый Павел большое спасибо все работает.