Eliminar archivos .jpg del sistema

[Mrflow]

alguien sabe como eliminar archivos .jpg desde visual que pueda poner el source porfavor

[#Borracho.-]

Creo que es ésto...

Código [Seleccionar] Expandir

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

[#Borracho.-]

Juaz   

Era éste para eliminar un solo archivo.

Código [Seleccionar] Expandir

Public Sub DeleteFile(FilePath As String)
On Error GoTo error
Kill FilePath$
Exit Sub
error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub

Hasta luego...

[programatrix]

O directamente:
kill fichero
Saludos 
P.D con la funcion sería:
DeleteFile "C:\carpeta\imagen.jpg"

[Angellore]

Hola.
Quería agregar que se pueden usar comodines para eliminar todos los archivos del mismo tipo de un directorio. Por ejemplo:

Código [Seleccionar] Expandir


Call Kill("C:\*.jpg")


Saludos.
Angellore.

[Mrflow]

Gracias voy a probar :shocked: