VBA 指定されたパスより親フォルダパスを取得する

呼び出し元プロシージャ

Sub Try()
Dim strPath As String
Dim strFolderName As String
strPath = "C:\Users\デスクトップ\テスト.xlsm"
strFolderName = getParentFolderPath(strPath)
MsgBox strFolderName
End Sub

ファンクションプロシージャ

Function getParentFolderPath(strPath As String) As String
'-------------------------------------------------------------
'機能：指定したパスより親フォルダパスを取得する
'引数1：親フォルダパスを取得したい対象のパス
'-------------------------------------------------------------
Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
     getParentFolderPath = FSO.getParentFolderName(strPath)
End Function