Visual Basic - como elimina carpetas con subdirectorios y archivo

Necesito eliminar carpetas con subdir y archivos, con rmdir y el kill no puedo.
Echame una mano.

Ahora mismo estoy en un PC que no es el mío, y no tiene el VB instalado, así que no puedo concretar bien mi respuesta.
Pero si buscas en el Object browser el objeto SystemObject verás que tiene un montón de métodos y propiedades que te podrán servir, y para manejar y borrar muchos archivos y carpetas usa la sentencia For Each... Next

Suerte
Josetxu

Ya estoy en mi PC, y he comprobado que te lo dije mal.

Prueba esto en un proyecto nuevo y sin guardar. Verás que la función FileExists devuelve TRUE si es un archivo y FALSE si es un directorio:

Sub Main()
Dim Archivo As String
Dim A As Object
Set A = CreateObject("Scripting.FileSystemObject")
Archivo = App.Path 'Aqui ponemos la ruta de un directorio que existe
'y dirá que NO existe
If A.FileExists(Archivo) Then
MsgBox Archivo & " existe"
Else
MsgBox Archivo & " no existe"
End If
Archivo = App.Path & "\Vb6.exe" 'Ahora la ruta de un archivo
'y dirá que SI existe
If A.FileExists(Archivo) Then
MsgBox Archivo & " existe"
Else
MsgBox Archivo & " no existe"
End If
End Sub

Suerte
Josetxu.

Ya estoy en mi PC, y he comprobado que te lo dije mal.

Prueba esto en un proyecto nuevo y sin guardar. Verás que la función FileExists devuelve TRUE si es un archivo y FALSE si es un directorio, y además verás otra forma más elegante:

Sub Main()
Dim Archivo As String
Dim A As Object
Dim ADir As Object
Dim AArch As Object
Dim APrueba As Object
Set A = CreateObject("Scripting.FileSystemObject")
Archivo = App.Path 'Aqui ponemos la ruta de un directorio
'y dirá que NO existe
If A.FileExists(Archivo) Then
MsgBox Archivo & " existe"
Else
MsgBox Archivo & " no existe"
End If
Archivo = App.Path & "\Vb6.exe" 'Ahora la ruta de un archivo
'y dirá que SI existe
If A.FileExists(Archivo) Then
MsgBox Archivo & " existe"
Else
MsgBox Archivo & " no existe"
End If
'Es un sistema un poco burdo, pero verás ahora:
Archivo = App.Path & "\Template"
Set ADir = A.GetFolder(Archivo)
Set AArch = ADir.SubFolders
For Each APrueba In AArch
MsgBox APrueba.Name & " es un subdirectorio"
Next
Archivo = App.Path & "\Template\Classes"
Set ADir = A.GetFolder(Archivo)
Set AArch = ADir.Files
For Each APrueba In AArch
MsgBox APrueba.Name & " es un archivo"
Next
End Sub

Como ves hay un montón de métodos que no son fáciles de encontrar en la documentacion
Suerte
Josetxu.