Borrar y Copiar

wpolanco · #1 19-09-2003

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 · #2 19-09-2003

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 · #3 19-09-2003

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.