【書式】 File.ParentFolder ファイルが存在するフォルダを返します。 1つ上のフォルダではなく、ファイルが保存されているフォルダ名です。 Sub test62() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") ''「C:\Work」を表示します MsgBox FSO.GetFile("C:\Work\Book1.xlsx").ParentFolder Set FSO = Nothing End Sub