フォルダがあるかチェック
フォルダが存在するかどうかをチェックします。
Option Explicit
MsgBox fnFolderExists("abc")
Function fnFolderExists(strFolderPath)
Dim fsoTemp
fnFolderExists = False
Set fsoTemp = CreateObject("Scripting.FileSystemObject")
If fsoTemp.FolderExists(strFolderPath) Then
fnFolderExists = True
End If
Set fsoTemp = Nothing
End Function