alguien sabe como eliminar archivos .jpg desde visual que pueda poner el source porfavor :rolleyes:
Creo que es ésto...
Public Sub DelFilesInDir(DirPath As String, DelDir As Boolean)
On Error GoTo error
Kill DirPath$ & "*.*"
If DelDir = True Then
RmDir DirPath$
End If
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub
Si no estoy equivocado eseso, pero tambien éste creo que era si estaban todos en la misma carpeta... Bien no recuerdo :shocked:
Saludos
Juaz :D :rolleyes:
Era éste para eliminar un solo archivo.
Public Sub DeleteFile(FilePath As String)
On Error GoTo error
Kill FilePath$
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub
Hasta luego...
O directamente:
kill fichero
Saludos ::)
P.D con la funcion sería:
DeleteFile "C:\carpeta\imagen.jpg"
Hola.
Quería agregar que se pueden usar comodines para eliminar todos los archivos del mismo tipo de un directorio. Por ejemplo:
Call Kill("C:\*.jpg")
Saludos.
Angellore.
Gracias voy a probar :shocked: