質問

【Excel VBA】ファイルのフルパスからフォルダ名のみ取り出したい

質問者：motsu2006
投稿日時：2009/06/13 04:30

Dim testfile As String
testfile = C:\test\aaa.xls
とします。
この時、testfileのディレクトリ名だけを取り出したいのですが、
どのようにすればよろしいでしょうか？
結果としては、
testdir = C:\test\
のような感じです。

一発でディレクトリ名を返してくれる関数はありますか？
それとも、フルパスの右側から1文字ずつ検索して"\"を～しか方法がないのでしょうか？

よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.2ベストアンサー20pt

回答者：DOUGLAS_
回答日時：2009/06/13 07:33

＞testfileのディレクトリ名だけを取り出したい
　どのようにして「testfile」を設定しているかによって、ヤリカタも変わってくるかと存じます。

＞フルパスの右側から1文字ずつ検索して"\"を
testdir = Left(testfile, InStrRev(testfile, "\"))

＞一発でディレクトリ名を返してくれる関数
　もともとの「testfile」という「String」が
Set testbook = ThisWorkbook
testfile = testbook.FullName
というようなことで設定されているのでしたら、
testdir = testbook.Path & "\"

　また、実在のファイルでしたら、
testdir = Replace(testfile, Dir(testfile), "")

　ちなみに
testfile = C:\test\aaa.xls
ではなくて、
testfile = "C:\test\aaa.xls"
ですね。

この回答へのお礼

ご回答ありがとうございます。

＞testdir = Left(testfile, InStrRev(testfile, "\"))

こちらで解決しました。
朝早くからご回答いただき、本当に感謝しています。
繰り返しになりますが、ありがとうございました。

この回答への補足

#1様、#2様

早速のご回答、ありがとうございます。
また、言葉足らずでスミマセンでした。

まず、testfile = "C:\test\aaa.xls"です。
そして、"C:\test\aaa.xls"はダイアログボックスから選択したフルパスなのです。
この文字列"C:\test\aaa.xls"からファイル名"aaa.xls"を除いた"C:\test\"を取得したいのです。
※もちろん、ダイアログボックスからの選択ですから状況によりパスは変動します

よろしくお願いします。

通報する