Codigo para eliminar carpetas y su contenido By Ponchale VB6

[Ponchale]

Código: (vb) [Seleccionar]

On Error GoTo errhandler
If MsgBox("Asegúrese de borrar " & Dir1.List(Dir1.ListIndex) & vbLf & _
"y todo su contenido?", vbYesNo + vbQuestion) = vbNo Then
Exit Sub
End If
Dim currdir As String, delDir As String
currdir = CurDir
delDir = Dir1.List(Dir1.ListIndex)
ChDir delDir
On Error Resume Next
Kill "*.*"
On Error GoTo errhandler
ChDir currdir
RmDir Dir1.List(Dir1.ListIndex)
Dir1.Path = drvList.Drive
Dir1.Refresh
Exit Sub
errhandler:
Espero que lo disfruten

fuente:latinsoft.eshost.es