SUPRIMER L'INTÉGRALITÉ D'UN DOSSIER ET CRÉE UN CHEMIN S'IL N'EXISTE PAS

Sub MakePath(Path As String)
    Dim dirName() As String
    Dim dirTemp As String
    Dim i As Integer
    
    dirName = Split(Path, "\")
    dirTemp = dirName(0)
    For i = 1 To UBound(dirName)
        dirTemp = dirTemp & "\" & dirName(i)
        If Dir(dirTemp, vbDirectory) <> dirName(i) Then
            MkDir (dirTemp)
        End If
    Next
End Sub
Sub DeleteDir(ByVal Path As String)
    Dim tmpFileName As String
    Dim dirList() As String
    Dim i As Integer
    ReDim dirList(0)
    
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    tmpFileName = Dir(Path, vbDirectory)
    Do Until tmpFileName = ""
        If tmpFileName <> "." And tmpFileName <> ".." Then
            ReDim Preserve dirList(UBound(dirList) + 1) As String
            dirList(UBound(dirList)) = tmpFileName
        End If
        tmpFileName = Dir
    Loop
    For i = 1 To UBound(dirList)
        If GetAttr(Path & dirList(i)) = vbDirectory Then
            DeleteDir Path & dirList(i)
        Else
            Kill Path & dirList(i)
        End If
    Next
    RmDir Path
End Sub