VBA でフォルダの存在を確認する方法

VBAではDir関数を用いてフォルダが存在するか判定できます。Dir関数は指定されたパスやフォルダ内にあるファイルやフォルダの名前が格納された文字列を返します。ファイルやフォルダが見つからない場合は空文字を返します。

以下にフォルダが存在するかどうかを判断するためのサンプルコードを示します。

Public Function FolderExists(folderPath As String) As Boolean
FolderExists = (Dir(folderPath, vbDirectory) <> "")
End Function

上で示したコードでは、関数 FolderExists は、フォルダのパスを表す文字列パラメーター folderPath を受け取ります。この関数は、Dir 関数を使用してそのパス内のフォルダを検索し、Dir 関数の戻り値が空の文字列かどうかで、フォルダが存在するかどうかを判断します。

以下のコードを使用して、フォルダーがあるかどうかをテストできます。

Sub TestFolderExists()
Dim folderPath As String
folderPath = "C:\Users\YourUserName\Desktop\TestFolder"
If FolderExists(folderPath) Then
MsgBox "文件夹存在"
Else
MsgBox "文件夹不存在"
End If
End Sub

上記のコードでは、folderPathの値を、チェックしたいフォルダのパスに置き換えます。その後、FolderExists関数を呼び出してそのフォルダの有無を判定し、戻り値によって適切なメッセージボックスを表示します。