EXCEL : MakeDirP :: Le mkdir -p de linux reconduit en VBA pour la création d'une arborescence de dossier et sous-dossiers

Sub Test_MakeDirP()
    MakeDirP "D:\TEST\DOSSIER\SOUS_DOSSIER\SOUS_SOUS_DOSSIER"
End Sub

Function MakeDirP(hPath As String) As Boolean
    Dim oFSO As Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")

    '------------------------------------------------------
    ' Possible que ce soit un fichier donc hors sujet
    '------------------------------------------------------
    If oFSO.FileExists(hPath) Then
        MakeDirP = False
        Exit Function
    End If

    '------------------------------------------------------
    ' Le dossier existe déjà donc inutile de le créer
    '------------------------------------------------------
    If oFSO.FolderExists(hPath) Then
        MakeDirP = True
        Exit Function
    End If

    '------------------------------------------------------------------------------------------------------
    ' On part en profondeur dans l'arborescence pour créer les dossiers en utilisant la récursivité
    '------------------------------------------------------------------------------------------------------
    If MakeDirP(oFSO.GetParentFolderName(hPath)) Then
        ' si la création échoue
        If oFSO.CreateFolder(hPath) Is Nothing Then
            MakeDirP = False
        Else
            ' Création réussie
            MakeDirP = True
        End If
    Else
        MakeDirP = False
    End If
    
End Function

Sub MakeDirP(hPath As String)
    Shell "cmd /c mkdir """ & hPath & """"
End Sub

Sub testCreateOrAdd()
    Dim Chemin_Pc$
    Chemin_Pc = Environ("userprofile") & "\Desktop\A\B\C\D\E\F\G\H\I\J\K"
    CreateOrAddSubFolder Chemin_Pc
End Sub

Function CreateOrAddSubFolder(Chemin_Pc$)
    If Dir(Chemin_Pc, vbDirectory) = "" Then    ' = si dir_export N'existe pas alors
        With CreateObject("Wscript.Shell")
            .Run "cmd /c mkdir " & Chr(34) & Chemin_Pc & Chr(34)
        End With
    End If
End Function