FileSystemObjectでフォルダ名取得

質問

http://officetanaka.net/excel/vba/filesystemobject/filesystemobject.htm

このページにファイル名から、拡張子やドライブ名などを出力する方法が書かれていますが
ファイルが入っているフォルダ名を取得するコマンドはございますでしょうか？

例えば、

C:\xxxx\yyyy.txt
の場合、
C:\xxxx\

を取得したいのですが、コマンドはありますか？

回答No.1

watabe007 · ベストアンサー

参考に
With CreateObject("Scripting.FileSystemObject")
　　MsgBox .GetParentFolderName("C:\xxxx\yyyy.txt")
End With

お礼

ありがとうございます。

うまくいきました。

あと、拡張子を抜いたパス名を取得することは可能ですか？

("C:\xxxx\yyyy.txt")
の場合
("C:\xxxx\yyyy")
を取得したいのですが。

回答No.3

watabe007

>あと、拡張子を抜いたパス名を取得することは可能ですか？
>("C:\xxxx\yyyy.txt") の場合 ("C:\xxxx\yyyy")
>を取得したいのですが。
[例1]
Dim myPath As String
myPath = "C:\xxxx\yyyy.txt"
With CreateObject("Scripting.FileSystemObject")
　　MsgBox .GetParentFolderName(myPath) & "\" & .GetBaseName(myPath)
End With

[例2]InStrRev関数を使って
Dim myPath As String, n As Long
myPath = "C:\xxxx\yyyy.txt"
n = InStrRev(myPath, ".")
MsgBox Left(myPath, n - 1)

回答No.2

chie65535

http://officetanaka.net/excel/vba/tips/tips78.htm
の「sample 6」を参照。