Suppression dossier

Bonjour à tous,

je tente de pouvoir supprimer un dossier contenant lui même dossiers et fichiers en vba

j'ai tenté deux méthodes mais n'y fait

Private Sub PrepareDirModified(dirStr As String)
On Error Resume Next
    If Right(dirStr, 1) <> "\" Then dirStr = dirStr & "\"
    Kill dirStr & "*.*"
    RmDir dirStr
    MkDir dirStr
On Error GoTo 0
End Sub

Sub test2()
projettest = "test"
ID = "123"
PrepareDirModified ("C:\Users\Me\Desktop\TBD_Projets\Projects_Library\" & projettest & "-" & ID)
End Sub

mais cela ne fait que supprimer les fichiers directement dans le dossier maitre mais rien dans les sous dossiers

mon but étant de supprimer le dossier et son contenu dans son intégralité

j'ai également tenté via une autre méthode mais meme résultat + erreur 75...

Sub test()
'on efface le dossier associé

projettest = "test"
ID = "123"
FolderName = "C:\Users\Me\Desktop\TBD_Projets\Projects_Library\" & projettest & "-" & ID & "\"

If Dir(FolderName) <> "" Then
        Kill FolderName
    End If

'MsgBox (FolderName)

RmDir "C:\Users\me\Desktop\TBD_Projets\Projects_Library\" & projettest & "-" & ID

End Sub

quelqu'un aurait il une piste svp?

Je me réponds à moi meme car j'ai trouvé

Afin d'aider les autres si besoin était:

'VBA Deleting All Files and Subfolders
Sub test3()

   projettest = "test"
ID = "123"

    sFolderPath = "C:\Users\Me\Desktop\TBD_Projets\Projects_Library\" & projettest & "-" & ID & "\"

    If Right(sFolderPath, 1) = "\" Then
    sFolderPath = Left(sFolderPath, Len(sFolderPath) - 1)
    End If

    'Create FSO Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")

    'Check Specified Folder exists or not
    If oFSO.FolderExists(sFolderPath) Then

          'Delete All Files
          oFSO.DeleteFile sFolderPath & "\*.*", True

          'Delete All Subfolders
          oFSO.DeleteFolder sFolderPath & "\*.*", True

     End If
  RmDir sFolderPath
End Sub