Añade la siguiente referencia a tu proyecto:
Microsoft Scripting library
y luego pon este código donde quieras borrar la carpeta y todo su contenido:
Dim objFile As Object
Set objFile = CreateObject("Scripting.FileSystemObject")
'Se comprueba si existe la carpeta
If objFile.FolderExists (ruta_carpeta_eliminar) = True Then
'Se elimina la carpeta y todo su contenido, incluyendo ficheros de sólo lectura
objFile.DeleteFolder (ruta_carpeta_eliminar, True)
End If
El true es para forzar que borre también los ficheros que contenga de solo lectura.
Espero que te sirva.
Para cualquier duda consultamelo.
Saludos,
Roberto García
