Excel vba 新建文件夹

 检测EXCEL文件所在目录下，是否以前当工作表命名的文件夹，如果没有提示创建。

Sub mkdir()
spatch = Excel.ThisWorkbook.Path
newmd = spatch & "\" & ActiveSheet.Name
t = Dir(newmd, vbDirectory)
If t = "" Then i = MsgBox("文件夹不存在是否创建并写入？", vbYesNo + vbQuestion, "存盘提示")
If i = 6 Then MkDir newmd Else Exit Sub
End Sub