Eliminar contenido de una carpeta

[carademel]

Buenas, queria saber como puedo hacer para eliminar el contenido de una carpeta, dada la ruta (sin eliminar la carpeta). Estoy empezando y no me conozco muy bien las clases que hay para hacer esto.


Muchas gracias!

[Avellaneda]

Iniciado por carademel

Buenas, queria saber como puedo hacer para eliminar el contenido de una carpeta, dada la ruta (sin eliminar la carpeta). Estoy empezando y no me conozco muy bien las clases que hay para hacer esto.


Muchas gracias!

Hola, prueba con una función como esta:

Código:

Function EliminarArchivos(ByVal sDir As String)
Dim MisArchivos As String
' todos los archivos y carpetas, incluso los ocultos y los de sólo lectura
MisArchivos = Dir(sDir, vbDirectory + vbHidden + vbReadOnly)
Do While MisArchivos <> ""
   If MisArchivos <> "." And MisArchivos <> ".." Then
        If Not (GetAttr(sDir & MisArchivos) And vbDirectory) = vbDirectory Then
            ' si no es un directorio, es un archivo, lo eliminamos
            Kill sDir & MisArchivos
      End If
   End If
   MisArchivos = Dir
Loop
End Function

Para llamarla:

Código:

Private Sub Command1_Click()
EliminarArchivos ("c:\Mis Carpetas\Temp\")
MsgBox "Todos los archivos eliminados"
End Sub