Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Mrflow en 25 Enero 2006, 09:23 am

Título: Eliminar archivos .jpg del sistema
Publicado por: Mrflow en 25 Enero 2006, 09:23 am

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

Título: Re: Eliminar archivos .jpg del sistema
Publicado por: #Borracho.- en 25 Enero 2006, 13:24 pm

Creo que es ésto...

Código:

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

Título: Re: Eliminar archivos .jpg del sistema
Publicado por: #Borracho.- en 25 Enero 2006, 13:25 pm

Juaz :D :rolleyes:

Era éste para eliminar un solo archivo.

Código:

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

Hasta luego...

Título: Re: Eliminar archivos .jpg del sistema
Publicado por: programatrix en 25 Enero 2006, 16:10 pm

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

Título: Re: Eliminar archivos .jpg del sistema
Publicado por: Angellore en 25 Enero 2006, 16:12 pm

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

Código:

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

Saludos.
Angellore.

Título: Re: Eliminar archivos .jpg del sistema
Publicado por: Mrflow en 27 Enero 2006, 05:45 am

Gracias voy a probar :shocked: