Foros Club Delphi - Borrar y Copiar

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Borrar y Copiar (https://www.clubdelphi.com/foros/showthread.php?t=3793)

wpolanco

19-09-2003 19:54:51

Borrar y Copiar

Saludos Gente del Foro, especialmente Jhonny, por tu sugerencia anterior, sobre la apertura y cierre de la unidad de CD-ROM, Funciono perfectamente. En esta oportunidad necesito borrar y copiar archivos desde la aplicacion Delphi hacia las unidades floppy o Disco duros o CD-RW.He usado algunos comandos desde delphi, pero la aplicacion se vuelve loca, habra que tener en cuenta algunos parametros particulares, o existen algunos otros. Por favor caulquier ayuda sabria agradecerla. Hasta pronto:)

marcoszorrilla

19-09-2003 22:53:31

Ejemplo de la ayuda de Delphi para borrar un fichero:

Código:

if FileExists(FileName) then



  if MessageDlg('Do you really want to delete ' + ExtractFileName(FileName) + '?'), []) = IDYes then 

    DeleteFile(FileName);

El fichero lo puedes tomar con FileListbox.

.....

Un Saludo.

marcoszorrilla

19-09-2003 22:59:32

Otro ejemplo para copiar:

Copiar ficheros
Con CopyFile:

Código:

if Not CopyFile(PChar('c:\fichero\origen.xxx'),PChar('c:\fichero\destino.xxx',FALSE) then

MessageDlg('No he podido copiar el fichero', mtWarning, [mbOk], 0);



El ultimo parámetro (en el ejemplo el FALSE es si quieres o no que dé error si el fichero destino ya   existe).

Un Saludo.

La franja horaria es GMT +2. Ahora son las 07:06:17.