Archivo vb6 eliminar

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.