在Excel VBA中创建文件夹和子文件夹

我有一个公司下拉菜单，其中由另一张纸上的列表填充。三列：公司、职位编号和零件号。

创建工作后，我需要一个该公司的文件夹和一个该零件号的子文件夹。

如果你沿着这条路走下去，它会看起来像：

C:\图像\公司名称\零件号\

如果公司名称或零件号存在，请勿创建或覆盖旧名称。只需进入下一步即可。因此，如果两个文件夹都存在，则不会发生任何事情，如果一个或两个文件夹都不存在，则根据需要创建。

另一个问题是有没有办法让它在 Mac 和 PC 上同样工作？

另一个在 PC 上运行的简单版本：

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

    strCheckPath = ""
    For Each elm In Split(strPath, "\")
        strCheckPath = strCheckPath & elm & "\"
        If Len(Dir(strCheckPath, vbDirectory)) = 0 Then MkDir strCheckPath
    Next
End Sub