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)
お礼
回答ありがとうございます。 バッチリでした。