Active Basic フォルダの絶対パスの取得

質問

ファイルまでの絶対パスの取得のように、自分のフォルダまでのパスを取得するにはどうしたらいいのでしょうか？

D:\aaaa\bbbb\cccc\dddd\abcd.exe
があって、
D:\aaaa\bbbb\cccc\dddd\
を取得したいのですが・・・

実験してみたのですが、上手くいきませんでした。
すみませんが、やり方をご教授ください。お願いします。

↓頑張った証
'自分自身のファイルパスを取得する
Dim path[MAX_PATH] As Byte
Dim FileName As BytePtr
Dim MaxFilePath As Long
Dim MyFileName As Long
Dim AllByte As Long
Dim MidAns As String

GetModuleFileName(NULL,path,MAX_PATH)

'ファイルパスからファイル名を抜き出し、その大きさを取得して、引く
FileName=malloc(Len(path)+1)
GetFileTitle(path,FileName,Len(path)+1)
MaxFilePath=Len(path)
MyFileName=Len(FileName)+1
AllByte=MaxFilePath-MyFileName
'フォルダまでのパスを抜き出す
MidAns=Mid$(path,1,54)

free(FileName)

回答No.1

machongola · ベストアンサー

こんばんは。
　GetCurrentDirectory()APIで手軽に取れます。

Dim path[MAX_PATH + 1] As TCHAR
GetCurrentDirectory(MAX_PATH, path)

　カレントディレクトリの位置は、オープンファイルダイアログ等で別のディレクトリを選択する度に変化するようです。
　なので、スタートアップの時点で取り込んでおいた方が良いと思います。