vb6: ошибка objShell

Question

public sub Main()

Set objShell = CreateObject("WScript.Shell")
                 strCommand = "C:/Program Files/s/schedule.exe"
                 objShell.Run strCommand, vbHide, True
Unload Me

end sub

предполагается запускать schedule.exe скрытно .... но программа вылетает с

Runtime error '-2147024894 (80070002)' :
method '~' of object '~' failed

В основном мне нужен schedule.exe, чтобы он работал тихо, не прерывая пользователя.

Answer 1

Вам не нужно использовать WScript: просто используйте функцию Shell с аргументом vbHide.

Shell "C:\Program Files\s\schedule.exe", vbHide

Answer 2

Если бы у вас была ссылка на Windows Script Host Object Model, вы получите это более информативное сообщение об ошибке:

Automation error
The system cannot find the file specified. 

Это может указывать на то, что вам нужно заключить в кавычки исполняемое имя файла, если оно содержит пробелы, подобные этому:

Public Sub Main()
    Dim objShell As Object ' WshShell
    Dim strCommand As String

    Set objShell = CreateObject("WScript.Shell")
    strCommand = "C:/Program Files/7-zip/7z.exe"
    objShell.Run """" & strCommand & """", vbHide, True ' WshHide
End Sub