Esta es una forma alternativa para borrar una Carpeta y todo su contenido, sin importar si tiene o no archivos adentro nada mas dentro de las referencias agregan Microsoft Scripting Runtime


Código:
Dim A As New Scripting.FileSystemObject
A.DeleteFolder Path
Set A = Nothing
Edited by: Jamec