
フルパスからパス部分(ファイル名以外)を取得する方法は
複数あります!

ここでは私が可読性が良いと考える方法を
記載します!
VBAコード
「FileSystemObject」の「GetParentFolderName」を用いて、フルパスからパス部分(ファイル名以外)を取得します。
Option Explicit
Sub sample()
Dim fso As Object
Dim fileFullPath As String
Dim filePath As String
'ファイルのパスを指定
fileFullPath = "C:\Users\user\Desktop\aiueo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
'パス部分(ファイル名以外)名を取得
fileFullPath = fso.GetParentFolderName(fileFullPath)
MsgBox (fileFullPath)
'後片付け
Set fso = Nothing
End Sub
実行結果
フルパスからパス部分(ファイル名以外)を取得することが出来ました
