Nicolas
25 de Marzo del 2004

Necesito que alguien me diga como eliminar todos los archivos de una carpeta. probe con
kil ("c:windowstemp*.*") y nada.
gracias!!!

naveguito
25 de Marzo del 2004

Si que funciona,hice una prueba y elimina los archivos,lo hice as铆:

Private Sub Cmdmatar_Click()
Kill (App.Path & "Prueba*.*")
End Sub

Y lo hace perfectamente,te mando si quieres la prueba a tu e-mail

Saludos

en?
25 de Marzo del 2004

Hola Nicolas, naveguito tiene raz贸n, s铆 que funciona.

La funci贸n Kill no puede eliminar ficheros en uso, ni ficheros con las propiedades Oculto y/o S贸loLectura.
Puedes cambiar las propiedades de los ficheros antes de la funci贸n Kill:


Dim Archivo

Archivo = Dir("c:directorio", vbHidden)
If Archivo = "" Then Exit Sub

Do While Len(Archivo)
SetAttr "c:directorio" & Archivo, vbNormal
Archivo = Dir
Loop
Kill "c:directorio*.*"

Saludos.