フォルダがルートフォルダかどうか調べる【IsRootFolderプロパティ】【FileSystemObject】【ExcelVBA】

構文

Object.IsRootFolder

IsRootFolderプロパティのサンプルコード

Public Sub sample()
    
    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
            
    '■ルートフォルダかどうか取得
    Debug.Print fso.GetFolder("C:\vba").IsRootFolder 'False
    Debug.Print fso.GetFolder("C:\").IsRootFolder    'True
    
    '■IF文でルートフォルダかどうか判定する場合
    If fso.GetFolder("C:\vba").IsRootFolder Then
        Debug.Print "ルートフォルダTrue"
    Else
        Debug.Print "ルートフォルダFalse"
    End If

End Sub

注意点

• 特にありません。

関連記事

• ファイル名と拡張子を分けて取得する【FileSystemObject】
• パスとファイル名からフルパスを生成する【BuildPathメソッド】【FileSystemObject】
• サブフォルダを取得する【SubFoldersプロパティ】【FileSystemObject】
• フォルダを削除する【DeleteFolderメソッド】【FileSystemObject】
• フォルダをコピーする【CopyFolderメソッド】【FileSystemObject】
• フォルダを移動する【MoveFolderメソッド】【FileSystemObject】