Question

Excel的VBA中,如果某文件夹存在就继续,文件夹不存在就新建一个再继续,怎么写?

Answer 1

'判断文件是否存在
Function ExistsFile_UseFso(strPath As String) As Boolean
Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

ExistsFile_UseFso = fso.FileExists(strPath)

Set fso = Nothing

End Function
'测试
Sub a()
If ExistsFile_UseFso("具体路径文件（包含文件名的路径）") Then
'文件存在具体操作
Else
'文件不存在具体操作
End If
End Sub

Answer 2

On Error Resume Next
MkDir "D:\xxx" ' 不存在就建一个，已存在则跳到下一句