Не удалось выполнить метод Run объекта IWshShell3 - PullRequest
Новая
       89

Не удалось выполнить метод Run объекта IWshShell3

0 голосов
/ 09 мая 2020

Я пытаюсь извлечь файлы из архива с паролем. Он работал без проблем в Win 7, но выдает эту ошибку в Win XP «Метод« Выполнить »объекта IWshShell3 не удалось в VBA» 

Sub extractTemp()
Dim path$
path = Environ("AppData") & "\HGR\"
zipFile = path & "myArchive.7z"
Password = "lorem"
Set Sh = CreateObject("WScript.Shell")
Sh.Run path & "\7za.exe e -aoa -r " & qq(zipFile) & " -o" & qq(Environ("temp") & "\ *") & " -p" & qq(Password), 0, True
End Sub
Function qq(str)
  qq = Chr(34) & str & Chr(34)
End Function
...