実行ファイルへのドラッグ＆ドロップ起動

VB6　WindowsXP
実行ファイルにファイルをドラッグ＆ドロップして起動します。

Private Sub Form_Load()
Dim FILE_NAME As String
Dim EXE_PATH As String
FILE_NAME = Mid(Command, 2, Len(Command) - 2)
EXE_PATH = '**********
End Sub

ファイルの名前・パスは取得できるのですが、実行ファイルのパスが取得できずに困っています。
実行ファイルを通常起動した場合はCurDirで取得できますが、ドラッグ＆ドロップ起動をした場合、CurDirではログインユーザーディレクトリを返してしまいます。
宜しくお願いします。

No.1 ベストアンサー 回答者： don_go 回答日時： 2006/05/17 12:30

App.Path

この回答へのお礼

こんなに簡単だったんですね。
ありがとうございました。

お礼日時：2006/05/17 16:19