【書式】
Folder.Path
フォルダのパスを返します。
Sub test47() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") ''「C:\Work」を表示します MsgBox FSO.GetFolder("C:\Work").Path Set FSO = Nothing End Sub