●概要●
FileSystemObjectのFolderExistsメソッドを利用して、指定したフォルダが実際に存在するか確認することができます。
構文 FolderExists（パス）
設定項目 内容
パス 確認するフォルダのフルパス
次のサンプルは、Dドライブの直下に「Test」フォルダが存在するか確認します。
存在しない場合はメッセージをイミディエイトウィンドウに表示します。
●サンプル1●
Sub Sample1()
Dim FSO As Object
Dim TempDir As String
Set FSO = CreateObject("Scripting.FileSystemObject")
TempDir = "D:\Test"
If False = FSO.FolderExists(TempDir) Then
Debug.Print "指定したフォルダは存在しません"
End If
Set FSO = Nothing
End Sub
●ポイント●
ここでは、実行時バインディングを利用していますが、事前バインディングを利用する場合、あらかじめ「Microsoft Scripting Runtime」に参照設定し、上記のコードを次のように修正します。
●サンプル2●
Sub Sample2()
Dim FSO As FileSystemObject
Dim TempDir As String
Set FSO = New FileSystemObject
TempDir = "D:\Test"
If False = FSO.FolderExists(TempDir) Then
Debug.Print "指定したフォルダは存在しません"
End If
Set FSO = Nothing
End Sub
