銀河鉄道

【VBA】フォルダの存在確認|FolderExists

サムネイル
フォルダ存在確認

フォルダパスから、フォルダが存在しているか確認

存在していたらtrueを返し、フォルダが存在しなければマクロ終了

Public Function FolderExists( _
                                    ByVal str As String, _
                                    ByVal extension As String) As Boolean
    FolderExists = False
    Dim fso As Object: Set fso = SetFSO
    If Not fso.FolderExists(folderPath) Then
        MsgStopMacro ("次のフォルダが見つかりません" & vbCrLf & folderPath)
    End If
    
    FolderExists = True
End Function

関連記事

著者

author
月うさぎ

編集後記:
この記事の内容がベストではないかもしれません。

記事一覧