VBA ファイルシステムオブジェクト・GetParentFolderName

■Pathで表されるパスから親フォルダ名を取得する

Function GetParentFolderName(Path As String) As String

VBA FileSystemObjectの主なプロパティとメソッド - ray88’s diary