実行ファイルのフォルダ

[BingoMan]

現在D&Dで起動するプログラムを作っています。設定ファイルはexeファイルと同じディレクトリにあるので実行ファイル自身の入っているフォルダのパスを調べる必要があるんですがその方法がわかりません。

実行ファイル自身の入っているフォルダのパスを簡単に調べる方法はありますでしょうか？よろしくお願いします。

[konisi]

こんな感じでいけたと思います。

コード: 全て選択

#prompt
Dim buf[MAX_PATH-1] As Byte
GetCurrentDirectory(MAX_PATH,buf)
Print MakeStr(buf)

[ゲスト]

ご回答ありがとうございます。
僕もGetCurrentDirectory関数でできると思ったのですが、実際にやってみるとD&Dしたファイルのディレクトリが戻ってきてしまい、exeファイル本体の入っているディレクトリは取得できませんでした。
というわけで別の方法を考えていますがなかなか思いつきません。よろしくお願いします。

[konisi]

これでいけますか？

コード: 全て選択

#prompt
Dim buf[MAX_PATH-1] As Byte,i As Long,j As long,len As Long
GetModuleFileName(0,buf,MAX_PATH)
len=lstrlen(buf)
For i=0 To len
	If buf>=128 then
		i++
	ElseIf buf=92 then
		j=i
	End If
Next
buf[j]=0
Print MakeStr(buf)

[BingoMan]

ご回答ありがとうございます。教えていただいた方法で無事できました。
自分自身のパスを調べて最後の\以降を削れば自分の入っているフォルダが取得できるということですね。
勉強になりました。ありがとうございます。