フォルダが実際に存在するか確認をする。

FileSystemObjectのFolderExistsメソッドを利用してフォルダが実際に存在するかを確認することができます。

FolderExistsには下記の引数が設定できます。

	引数名	説明	省略
第１引数	folderspec	確認対象のフォルダのパスを指定	不可

フォルダの存在確認はFolderExistsメソッドの戻り値から判断します。
指定したフォルダが存在する場合は True 、存在しない場合 False を返します。
またFolderExistsの第１引数に実際に存在するファイルのパス（「C:\VBA\memo.txt」のようなファイルパス）を指定した場合はフォルダではないので False が返されます。

　●フォルダの存在確認

'******************************************************************
'　フォルダの存在確認
'******************************************************************
Sub Main_FolderExists()
    
    '確認したいフォルダパスを指定
    Dim sFolder As String
    sFolder = "C:\VBA\FSO"

    'FileSystemObjectの作成
    Dim oFso As Object
    Set oFso = CreateObject("Scripting.FileSystemObject")
    
    'フォルダの存在確認
    Dim bRtn As Boolean
    bRtn = oFso.FolderExists(sFolder)
    If bRtn Then
        Debug.Print bRtn & ":フォルダが存在します"
    Else
        Debug.Print bRtn & ":フォルダが存在しません"
    End If

End Sub

■実行結果