Запустите mkdir с тем же именем папки сразу после удаления папки

Question

Если папка "INDIA" не существует, я могу создать папку.

После того, как я удалю папку "INDIA" с помощью rmdir, я не могу создать папку с именем "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

Вы добавили Extra \ в конце вашего 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 существует.