実行ファイルへのドラッグ&ドロップ起動
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ではログインユーザーディレクトリを返してしまいます。
宜しくお願いします。
お礼
早速の回答ありがとうございます。 ビンゴです。