Archivo vb6 eliminar
Necesito que alguien me diga como eliminar todos los archivos de una carpeta. probe con
kil ("c:windowstemp*.*") y nada.
gracias!!!
kil ("c:windowstemp*.*") y nada.
gracias!!!
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
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
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.
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.