'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