ExcelVBA Dir関数でのフォルダ存在チェック

Public Function IsExistDirA(a_sFolder As String) As Boolean
    Dim result
    
    result = Dir(a_sFolder, vbDirectory)
    
    If result = "" Then
        '// フォルダが存在しない
        IsExistDirA = False
    Else
        '// フォルダが存在する
        IsExistDirA = True
    End If
End Function