【VBA】フォルダーが存在するかを判定(FolderExists)

FileSystemObjectのFolderExistsメソッドについてです。

FolderExistsメソッド

指定したフォルダーの存在を判定してBool値が返ります。

FileSystemObject.FolderExists(folderspec)

引　数	必須 / 省略可	詳　細
フォルダーパス (folderspec)	必須	・存在するかを調べたいフォルダーパスを指定するとBool値が返ります。 True：存在する。 False：存在しない。

フォルダー（D:\sample\test）が存在するかの判定。

Sub フォルダーが存在するかの判定()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'指定したフォルダーが存在するとTrueが返ります。

Debug.Print fso.FolderExists("D:\sample\test")

End Sub

【結果】

testという名前のフォルダーが存在するため、Trueがイミディエイトウィンドウに表示されます。

指定フォルダーの存在をIFとFolderExistsで確認後に分岐させて処理を実行します。

Sub 応用FolderExists()

Dim f As String: f = "D:\sample\test"

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'フォルダーが存在するかIF文とFolderExistsメソッドで調べる

If fso.FolderExists(f) Then

MsgBox "指定のフォルダが見つかりました。"

Else

MsgBox "指定のフォルダーが見つかりません。"

End If

End Sub