|
質問の意図を読み違えてました。
FileSystemObjectを使ってファイルのフルパスからフォルダパスなどを
取得する方法です。
Dim FSO As Object
Dim mypath As String
Dim folpath As String
Dim folmei As String
Dim fmei As String
Dim fbasename As String
Dim kaku As String
Set FSO = CreateObject("Scripting.FileSystemObject")
mypath = "D:\hoge\test\aa.pdf" 'ファイルのフルパス
folpath = FSO.getparentfoldername(mypath) 'フォルダのパス
folmei = FSO.getfolder(folpath).Name 'フォルダ名
fmei = FSO.getfile(mypath).Name 'ファイル名
fbasename = FSO.getbasename(mypath) 'ファイル名から拡張子を除いた部分
kaku = FSO.GetExtensionName(mypath) '拡張子
MsgBox "ファイルのフルパス:" & mypath & vbCrLf & "フォルダパス:" & folpath & _
vbCrLf & "フォルダ名:" & folmei & vbCrLf & "ファイル名:" & fmei & vbCrLf & _
"拡張子を除いたファイル名:" & fbasename & vbCrLf & "拡張子:" & kaku
Set FSO = Nothing
なお、フォルダのフルパスからフォルダ名を取得するのは、
InstrRev関数とRight、Lenなどを組み合わせてもできます。ファイル名を取得するのも
同じです。
|
|