Folderオブジェクト - IsRootFolderプロパティ


【書式】

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