Excel [求助] VBA中如何判断指定目录下是否有重名文件夹

GetFolderSub creatNew()

On Error GoTo 0
If Dir("C:\Temp" & "\" & Format(Date$, "yyyymmdd"), vbDirectory) = "" Then
   MkDir "C:\Temp" & "\" & Format(Date$, "yyyymmdd")
Else
   i = MsgBox("Folder already exists, you sure want to rewrite?", vbYesNo)
  
   If i = vbYes Then

     具体应该是什么语句呢
   Else
      Exit Sub
   End If
0:
  
End If

End Sub

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Temp" & "\" & Format(Date$, "yyyymmdd"))
f.Name = newname

On Error GoTo 0
If Dir(path4 & "/" & Format(ThisWorkbook.Sheets("数据录入界面").Cells(4, 1).Text & "用户结算表", vbDirectory)) = "" Then
   MkDir (path4 & "/" & Format(ThisWorkbook.Sheets("数据录入界面").Cells(4, 1).Text & "用户结算表"))
Else
   i = MsgBox("文件夹已经存在，要覆盖它吗?", vbYesNo)
   
   If i = vbYes Then
     Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder(path4 & "/" & ThisWorkbook.Sheets("数据录入界面").Cells(4, 1).Text & "用户结算表")
f.Delete
path1.CreateFolder (path4 & "/" & ThisWorkbook.Sheets("数据录入界面").Cells(4, 1).Text & "用户结算表") '定义生成文件夹的路径以及文件夹名
   Else
      Exit Sub
   End If
End If

使用这个代码的时候发现：如果文件夹已存在，运行时会出现文件路径错误的提示，请问问题出在哪儿了呢？新手，希望有人能指导一下，感激不尽