EXCEL VBA フォルダの存在確認

サンプルプログラム

Sub Sample()
    Debug.Print nblnフォルダの存在確認("C:\")       'true
    Debug.Print nblnフォルダの存在確認("C:\Program Files")       'true
    Debug.Print nblnフォルダの存在確認("C:\Program Files\")       'true
    Debug.Print nblnフォルダの存在確認("C:\nai\")   'false
End Sub

ソースコード

'フォルダの存在確認
'
'バージョン　2022/8/17
'URL    https://pgbigoroku.hatenablog.com/entry/2022/08/17/005046

Public Function nblnフォルダの存在確認(ByVal pstr検索フォルダ名 As String) As Boolean
    Dim objFso
    Set objFso = CreateObject("Scripting.FileSystemObject")
    nblnフォルダの存在確認 = objFso.FolderExists(pstr検索フォルダ名)
 End Function