Question

excel问题:VBA创建文件夹的代码

当前文件夹下创建一个“以完成”的文件夹，并检查该文件夹是否存在，存在就不再创建，不存在就创建，求代码！！！！

Answer 1

Sub program
If Dir("F:\" & Format(Date, "YYYY-M-D"), vbDirectory) <> "" Then
MsgBox "文件夹存在"
Else
MsgBox "文件夹不存在!,系统将创建一个名为" & Format(Date, "YYYY-M-D") & "的文件夹"
MkDir "F:\" & Format(Date, "YYYY-M-D")
End If
End Sub

Answer 2

xx=me.path
If Dir(xx& “以完成", vbDirectory) = "" Then
MkDir xx & “以完成"
End If

Answer 3

Sub AAA()
If Dir(ThisWorkbook.Path & "\以完成", vbDirectory) = "" Then
MkDir ThisWorkbook.Path & "\以完成"
End If
End Sub