删除文件夹后立即使用相同的文件夹名称运行mkdir

Question

如果“ INDIA”文件夹不存在，我可以创建该文件夹。

使用rmdir删除文件夹“ INDIA”后，无法创建名为“ INDIA”的文件夹，这给了我一个错误，“路径/文件访问错误”。

saveFolder = ActiveWorkbook.path & "\Daily\INDIA\"
If Dir(saveFolder, vbDirectory) <> "" Then
   CreateObject("Scripting.FileSystemObject").DeleteFolder(ActiveWorkbook.path & "\Daily\INDIA")
   MkDir (saveFolder)
else
   MkDir (saveFolder)
End If

Answer 1

您在\的末尾添加了额外的saveFolder

这将起作用：

saveFolder = ActiveWorkbook.Path & "\Daily\INDIA"

If Dir(saveFolder, vbDirectory) <> "" Then
   CreateObject("Scripting.FileSystemObject").DeleteFolder (ActiveWorkbook.Path & "\Daily\INDIA")
   MkDir (saveFolder)
Else
   MkDir (saveFolder)
End If 

还要确保文件夹Daily存在。