[VBA]現在のフォルダ名の取得

質問

こちらの識者の方々にはいつもお世話になっています。
VBAの質問です。

環境は下記になります。
OS=windows7 pro 64bit
Office=Excel2010(14.0.7128.5000)

・やりたいこと
C:\AAA\BBB\CCC.xlsmファイルにマクロを記述し、
「BBB」という文字列を取り出したいです。
（フルパスではない）
この場合、どのようなコードが適していますでしょうか？

質問に不備不足等ございましたらご指摘ください。
ご面倒お掛けしますがよろしくお願いします。

回答No.2

ushi2015 · ベストアンサー

こんにちは
ドライブの直下だった場合を考慮すると、
Sub test()
　　Dim p As String
　　p = Dir(ThisWorkbook.Path, vbDirectory)
　　If InStr(1, ThisWorkbook.Path, p) = 0 Then
　　　　MsgBox ThisWorkbook.Path
　　Else
　　　　MsgBox p
　　End If
End Sub
の方がいいかも。

お礼

Dir関数を使えばいいんですね。
ありがとうございます。

回答No.1

ushi2015

こんにちは

Msgbox dir(thisworkbook.path,vbDirectory)

とか。

お礼

ありがとうございます。