RESPUESTA A LA PREGUNTA NUMERO 499

Si aún no lo has conseguido copiate esta función en un módulo:

Public Sub BorrarDirectorio(ByVal Directorio As String)
    Dim SubDirectorios() As String
    Dim ContadorDirectorios As Integer
    Dim AuxPath As String
    Dim Index As Integer
    
    On Error GoTo ErrorBorrado
    Kill Directorio + "*.*"
    On Error GoTo 0
    ContadorDirectorios = 0
    ReDim SubDirectorios(ContadorDirectorios)
    AuxPath = Dir(Directorio, vbDirectory)
    While AuxPath  ""
        If AuxPath  "." And AuxPath  ".." Then
            ReDim Preserve SubDirectorios(ContadorDirectorios)
            SubDirectorios(ContadorDirectorios) = Directorio + AuxPath + "\"
            ContadorDirectorios = ContadorDirectorios + 1
        Else
            
        End If
        AuxPath = Dir
    Wend
    
    For Index = 0 To ContadorDirectorios - 1
        BorrarDirectorio (SubDirectorios(Index))
        RmDir (SubDirectorios(Index))
    Next Index

Exit Sub

ErrorBorrado:
    Resume Next
End Sub

Enrique Gondra
enrique.gondra@indsys.ge.com