Set WshShell = CreateObject("WScript.Shell")
Return = WshShell.Run (Chr(34)+"c:\program files\winrar\rar"+Chr(34)+" <ключи>, 0, true)
Возможно ли автоматизировать распаковку из zip/rar-архивов?
Можно ли это сделать средствами VB/VBA? Или потребуется другой "инструментарий" (Типа assembler'a)?
Почему бы просто не вызывать программу-распаковщик?
Код:
Цитата: freets
Если вызывать распаковщик, то что-то типа этого:
Код:
Set WshShell = CreateObject("WScript.Shell")
Return = WshShell.Run (Chr(34)+"c:\program files\winrar\rar"+Chr(34)+" <ключи>, 0, true)
Return = WshShell.Run (Chr(34)+"c:\program files\winrar\rar"+Chr(34)+" <ключи>, 0, true)
Ага, поробуем, спс.