Hur raderar jag en mapp med alla undermappar och filer på en gång ?

jag hitta på pellesoft: jag tar EJ åt mig äran:)

****************************************
Private Sub Command1_Click()
SkapaMapp "c:\ny mapp1\ny mapp2\ny mapp3" 'osv
End Sub

Public Function SkapaMapp(Mapp As String) As Boolean
Dim map() As String
Dim tmp As String
On Error Resume Next
map() = Split(Mapp, "\", , vbTextCompare)
Dim xy As Long
For xy = LBound(map) To UBound(map)
If xy = 0 Then
xy = xy + 1
tmp = map(0)
End If

tmp = tmp & "\" & map(xy)

' SKRIVER DU "RmDir tmp" så tar du bort den sista mappen vid varje tryck
MkDir tmp

MsgBox tmp 'visar bara vad den gör.

Next xy

End Function

modifiera så du får som du vill ha.
/Benny