vba 判断文件夹是否存在

'path：1、D:\vba  2、D:\vba\ 两种格式都可以

'如果路径存在，外层if结束

'如果路径path是D:\vba\1.txt，程序会认为路径下不存在该文件夹，则创建新的文件夹，

'而如果1.txt这个文本文件在该目录下存在，报错，errorNumber>0，程序结束。

If Not CreateObject("Scripting.FileSystemObject").FolderExists(path) Then
        On Error Resume Next   '捕捉错误的内容并继续运行
        CreateObject("Scripting.FileSystemObject").CreateFolder (path)
        If Err.Number > 0 Then  
            MsgBox "errorMsg：" & Err.Description ' 弹框显示错误信息
            Err.Clear
            '处理强制结束
            End
        End If

End If