vba - 根据单元格值保存/检查路径

Question

我试图弄清楚如何检查路径并根据单元格值进行保存。我希望了解我做错了什么。

谢谢！

Sub Macro1()
        Sub CreateDir(strPath As String)
        Dim elm As Variant
        Dim strCheckPath As String

    strCheckPath = Environ("USERPROFILE") & "\Documents\Edit Listings" & Worksheets("Private").Range("A10").Value & Worksheets("Private").Range("B10").Value & Worksheets("Private").Range("C10").Value
    For Each elm In Split(strPath, "\")
        strCheckPath = strCheckPath & elm & "\"
        If Len(Dir(strCheckPath, vbDirectory)) = 0 Then MkDir strCheckPath
    Next
End Sub

标签： vbasavefile-structure