Bueno aqui les dejo el code de como eliminar directorios en Visual Basic 6
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
Autor: Ponchale