フォルダの存在をチェックする

2019年6月7日2021年8月22日

FolderExists関数

引数で指定したフォルダパスの存在をチェックし、結果を真偽値で返す関数。

'==================================================
' <summary>
' フォルダの存在をチェックする
' </summary>
' <param name="folderPath">フォルダパス</param>
' <returns>判定結果</returns>
'==================================================
Public Function FolderExists(folderPath As String) As Boolean

    FolderExists = False

    With CreateObject("Scripting.FileSystemObject")
        FolderExists = .FolderExists(folderPath)
    End With

End Function

実行方法

'==================================================
' <summary>
' FolderExists関数のテスト
' </summary>
'==================================================
Sub TestFolderExists()

    Dim result As String

    ' 存在するフォルダ
    result = FolderExists("C:\Test")
    ' 存在しないフォルダ
    result = result &amp;amp; vbCrLf &amp;amp; FolderExists("C:\Test\Folder")
    ' 存在するファイル
    result = result &amp;amp; vbCrLf &amp;amp; FolderExists("C:\Test\aaa.txt")

    MsgBox result

End Sub

実行結果