投稿日 | : 2004/08/30(Mon) 10:03 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: shell関数のエラーがでる |
> 有難うございます。上記試しましたがプロシージャの呼び出しまたは引数が不正のエラーが出ます。
エラーが発生するなら、エクスプローラー上で aclt.exe をダブルクリックして見て、起動
できるか確認して下さい。
起動できなければ、そのEXEは単独では起動できないかと思います。
下記なら起動できますか?
起動できたら、念のためそのコードのパスの部分だけを変更して試して見て下さい。
Private Sub Command1_Click()
Dim Ret As Long
Dim MyFile As String
MyFile = Chr$(34) & "C:\Program Files\Accessories\MSPAINT.EXE" & Chr$(34)
Ret = Shell(MyFile, vbNormalFocus)
End Sub