1 
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が必要です。

4

2 に答える 2

0

WScriptを使用する必要はありません。vbHide引数を指定してShell関数を使用するだけです。

Shell "C:\Program Files\s\schedule.exe", vbHide
于 2010-02-15T09:50:57.167 に答える
0

参照がある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
于 2010-02-14T11:18:38.373 に答える