Public Sub RmDir(ByVal vsFolder As Variant)
Dim sName As Variant
Dim oKillElements As Collection
   On Local Error Resume Next
   If VarType(vsFolder) <> vbString Then
       Err.Raise 5
   Else
       If Right$(vsFolder, 1) = "\" Then
           vsFolder = Left$(vsFolder, Len(vsFolder) - 1)
       End If
       Set oKillElements = New Collection
       sName = Dir$(vsFolder & "\*.*", vbDirectory Or vbReadOnly Or vbHidden Or vbSystem)
       Do While Len(sName)
           If (sName <> "..") And (sName <> ".") Then
               oKillElements.Add vsFolder & "\" & sName
           End If
           sName = Dir$()
       Loop
       For Each sName In oKillElements
           If GetAttr(sName) And vbDirectory Then
               RmDir sName
           Else
               SetAttr sName, vbNormal
               Kill sName
           End If
       Next sName
       VBA.FileSystem.RmDir vsFolder
   End If
End Sub 

    Sub SupprimerDossier(ByVal PathOfDirectory As String)
        If My.Computer.FileSystem.DirectoryExists(PathOfDirectory) = True Then
            My.Computer.FileSystem.DeleteDirectory(PathOfDirectory, FileIO.DeleteDirectoryOption.DeleteAllContents)
        Else
            MsgBox("Le dossier à supprimer n'existe pas")
        End If
    End Sub
    '**** Exemple d'utilisation
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SupprimerDossier("C:\Nouveau dossier")
    End Sub

<script type="text/javascript">
    
    var fso=new ActiveXObject("Scripting.FileSystemObject");
    fso.DeleteFolder("nom du répertoire à détruire",true ou false);
    //    false, le répertoire ne sera détruit que s'il est vide
    //    true, force la destruction du répertoire même s'il
    //                contient des sous/répertoires et/ou des fichiers

</script>

fRepSupprime(<répertoire>)
Les options disponibles :
- frLectureSeule : fichier en lecture seule également
- frRécursif : arborescence également,
- frVersCorbeille - dossier supprimé mais reste accessible en corbeille