VBScript フォルダ存在確認

■フォルダ存在確認のサンプル

PATH = "C:\temp"
Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")
If oFS.FolderExists(PATH) Then
    MsgBox "フォルダが存在します: " & Path
Else
    MsgBox "フォルダが存在しません: " & Path
End If
Set oFS = Nothing

・PATH は調べたいフォルダのパスが書かれています。
・oFS.FolderExists(PATH)は「フォルダがあるか調べています。結果は True（ある）か False（ない）で返ってきます。
・文字の連結は &: 変数 Path の中身とメッセージの文章を & でくっつけて表示しています。

■判定部分を関数（Function）した場合。

' メイン処理
PATH= "C:\temp"
If FolderExists(PATH) Then
    MsgBox "フォルダが存在します: " & Path
Else
    MsgBox "フォルダが存在しません: " & Path
End If

' フォルダの存在を確認する関数
Function FolderExists(folderPath)
    Dim oFS : Set oFS= CreateObject("Scripting.FileSystemObject")
    FolderExists = oFS.FolderExists(folderPath)
    Set oFS= Nothing
End Function