Borrar y Copiar

[wpolanco]

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]

Ejemplo de la ayuda de Delphi para borrar un fichero:

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]

Otro ejemplo para copiar:

Copiar ficheros
Con CopyFile:
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.