【VBA：Tips】フォルダの存在確認

VBAでフォルダの存在確認する方法として、FileSystemObjectのFolderExistsを使用することで実現できます。

FileSystemObjectは、ファイルシステムオブジェクトを操作するための標準ライブラリであり、ファイルやフォルダの作成や削除、コピー、移動などを簡単に行うことができます。

FolderExistsメソッドは、指定されたフォルダが存在するかどうかを確認するために使用されます。
フォルダが存在する場合はTrueを、フォルダが存在しない場合はFalseを返します。

FolderExistsメソッドを使う場面としては、作成したいフォルダがすでに存在するか、コピーしたいフォルダが存在するか、移動したいフォルダが存在するかなどを確認したいときです。

【サンプルソース】フォルダの存在確認

以下は、FileSystemObjectのFolderExistsを使用して、フォルダの存在確認するVBAサンプルコードです。

Sub CheckFolderExists()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 存在を確認するフォルダのパス
    Dim folderPath As String
    folderPath = "D:\200_work\100_sample\AAA"
    
    ' フォルダの存在を確認する
    If fso.FolderExists(folderPath) Then
        MsgBox "フォルダが存在します。"
    Else
        MsgBox "フォルダが存在しません。"
    End If
    
    ' オブジェクトを解放する
    Set fso = Nothing
End Sub