投稿日 | : 2003/06/04(Wed) 13:54 |
投稿者 | : Lantern |
Eメール | : |
URL | : |
タイトル | : Re^5: 変更しましたが同じエラーがでます。 |
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Dim ret As Long
ret = ShellExecute(Me.hwnd, "open", "test01.txt", vbNullString, "C:\", 1&)
End Sub
私の環境で上記ソースで動作させていますが、問題なく起動できています。
新規作成→標準EXE でできたプロジェクトに上記ソースをそのまま貼り付けて
あおいさんの現象が発生するのか試していただけますか?
その際にテキストファイル"test01.txt"を"C:\"に置いてください。