Hur raderar jag en mapp med alla undermappar och filer på en gång ? jag hitta på pellesoft: jag tar EJ åt mig äran:)Ta bort mapp o underfiler !
Sv: Ta bort mapp o underfiler !
****************************************
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