Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
Dim path: path = "C:\foo bar\"
If Not fso.FolderExists(Chr(34) & path & Chr(34)) Then
MsgBox "escaped path doesn't exist"
End If
If Not fso.FolderExists(path) Then
MsgBox "unquoted it's still not found!"
End If