スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
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