ab.com コミュニティ

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

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

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

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

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

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

これでいけますか？

#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)

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

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