Excel VBA-带有变量名的mkdir

我有一个宏，它将数据复制到工作簿中，并将工作簿保存为输入工作簿中变量的组合。下面是我用来做这件事的方法：

ActiveWorkbook.saveas "D:\sm031648\Documents\Lighting Audits\" & Accnt & " -     " & Property & ".xlsx", FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False

我想在前面添加一个if语句和mkdir，以便它将其保存在一个同名的文件夹中，并在目录中创建一个文件夹（如果还没有）。当我用变量名在这部分上面键入下面的代码时，我得到了“编译错误；预期语句结束”。我错过了什么

If Len(Dir("D:\sm031648\Documents\Lighting Audits\" & Accnt & " - " Property, vbDirectory)) = 0 Then
MkDir "D:\sm031648\Documents\Lighting Audits\" & Accnt & " - " Property
End If

---

您缺少&before属性

If Len(Dir("C:\sm031648\Documents\Lighting Audits\" & Accnt & " - " & Property, vbDirectory)) = 0 Then
    MkDir "C:\sm031648\Documents\Lighting Audits\" & Accnt & " - " & Property
End If

---

就这样！非常感谢。