vba 删除文件夹内所有文件

Question

目标：
如果没有该文件夹，新建一个，
如果有，则清空文件夹内的文件
Sub program()
If Dir("F:\12mZGJSapAPI") <> "" Then
If Dir("F:\12mZGJSapAPI\*.*") <> "" Then
Kill "F:\12mZGJSapAPI\*.*"
End If
Else
MkDir "F:\12mZGJSapAPI"
End If
End Sub
代码哪里搞错了？提示路径不对

Answer 1

这是因为使用MkDir的时候，这个文件夹已经存在了！所以会报错。
应该在使用MkDir 之前，检查一下文件夹是否已存在！

Answer 2

这是因为使用MkDir的时候，这个文件夹已经存在了！所以会报错。本回答被提问者采纳