Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Eliminar archivos en delphi (https://www.clubdelphi.com/foros/showthread.php?t=30826)

edlm 20-04-2006 07:52:10

Eliminar archivos en delphi
 
Hola, quiero comenzar diciendo que soy muy nuevo programando en delphi, pero me interesa aprender.
Ahora mismo estoy realizando un programa asi:
que busque un archivo en disco y lo elimine es sencillo pero no tengo idea de como hacerlo ya coloque los componentes DriveComboBox, directoryListBox y FileListBox, todo esto para seleccionar el archivo deseado

luego tengo el boton Borrar o eliminar, la programacion de este boton es la que no se hacer he programado otras cosas pero nunca he trabajado con archivos, supongo que para programar este boton solo tengo que decir que el archivo seleccionado en el FileListBox deber ser eliminado fisicamente del disco duro pero como hacerlo ya en el codigo, si alguien tiene una idea, les agradeceria mucho la ayuda, cuidense

gracias.

ElKurgan 20-04-2006 09:44:08

De la ayuda de Delphi:

TFileListBox.FileName:
Indicates the name of the selected file in the list box, including the path name.

por tanto, puedes hacer algo como esto:

Código:

if FileExists(MiFileListBox.FileName) then
    DeleteFile(MiFileListBox.FileName);

Espero que te sirva
Un saludo

edlm 20-04-2006 18:50:18

Borrar archivos
 
Gracias me funciono perfecto, pero probando distintas posibilidades me doy cuenta que solo borra archivos normales, es decir no borra archivos que sean de solo lectura, supongo por logica que el motivo es ese por ser de solo lectura no deja que se elimine, habra alguna forma de solucionar este problema o no se puede cambiar, gracias por la ayuda

Saludos

seoane 20-04-2006 19:03:18

Se me ocurre que le puedes quitar el atributo de solo lectura

Código Delphi [-]
SetFileAttributes(PChar(MiFileListBox.FileName),FILE_ATTRIBUTE_NORMAL);
DeleteFile(MiFileListBox.FileName);


La franja horaria es GMT +2. Ahora son las 11:11:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi