【書式】
Folder.IsRootFolder
フォルダがルートフォルダかどうかをTrueまたはFalseで返します。
Sub test44()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''ルートフォルがどうかを表示します
If FSO.GetFolder("C:\Work").IsRootFolder Then
MsgBox "ルートフォルダです"
Else
MsgBox "ルートフォルダではありません"
End If
Set FSO = Nothing
End Sub