проблемма с Shell

[НиколайП]

подскажите в чём я туплю .................

Код: Выделить всё

Dim RetVal
Dim filezip As String
filezip = App.Path & "\obr\555.zip"

RetVal = Shell("C:\Program Files\WinRAR\WinRAR.exe" & " e" & filezip & "  *.xls", vbNormalFocus)

выскакивает сообщение : Архивы не найдены

из справки по архиватору - работа с командной строкой

Пример:

WinRAR e *.rar *.doc

В данном примере будут извлечены в текущую папку все файлы *.doc из всех находящихся в текущей папке архивов RAR

и ещё там указанно что работает с архивами и RAR и ZIP, только необходимо явно указывать расширение архива.

[Vinechka]

после буквы e перед именем файла откуда экстрактим пробела не должно быть? Может оно...

[НиколайП]

пробовал по разному, перенёс файл архива в директорию к WinRAR.exe , всё равно не прокатывает

Dim RetVal
Dim adr As String

adr = "C:\Program Files\WinRAR\WinRAR.exe e 555.zip *.xls"
MsgBox (adr)
RetVal = Shell(adr, vbNormalFocus)

MsgBox выдаёт адрес правильно, но ошибка опять таже :Архивы не найдены

[GSerg]

Полный путь к архиву укажи...

[НиколайП]

Полный путь к архиву укажи...

извини, может я что то не понял, это разве не полный путь:

filezip = App.Path & "\obr\555.zip"

?
я уже и так пробовал:

filezip =C:\Documents and Settings\User\Мои документы\VB\laguna\1\obr\555.zip

но тоже не проходит , да и не приемлемо это, негоже пользователя ограничивать в выборе папки установки программы .........

[GSerg]

И в кавычки возьми его...

[НиколайП]

пришлось создавать временную папку на диске С ..........
а в таком варианте App.Path & "\obr\555.zip так и не заработал ...

[Amed]

Николай,

Код: Выделить всё

Dim RetVal
Dim adr As String

adr = "C:\Program Files\WinRAR\WinRAR.exe e " & """" & App.Path & "\555.zip" & """ *.xls"
MsgBox (adr)
RetVal = Shell(adr, vbNormalFocus)

[НиколайП]

большое спасибо Amed , я видать запарился с кодом,обрати внимание на время когда начинал эту тему, и выпустил из виду "двойные кавычки" , но пошёл другим путем и в результате получил желаемое, правда пришлось немного кода добавить , создать временную папку, разархивировать файл а затем удалить эту папку ...

но тем не менее , ещё раз БОЛЬШОЕ СПАСИБО тебе за подсказку и всем кто принимал участие в этом топике !