Cortar y Pegar Archivos

[VNNO]

Hola Todos:

Necesito de su ayuda, el inconvenientes es que necesito hacer por codigo el cortar o copiar un archivo que esta en una ubicacion determinda y pegarlo en otra, pero todo por codigo sin que el ususario se de cuenta....espero que me puedan colaborar

[roman]

Puedes usar DeleteFile de la unidad SysUtils y CopyFile de la unidad Windows.

// Saludos

[[seoane]]

O MoveFile, MoveFileEx de la unidad windows.

[VNNO]

pero podrian aclararme de que manera nunca los he usado muchas gracias

[[seoane]]

Vamos a echarle un vistazo a la ayuda. Allí se nos describen estas funciones de la siguiente manera:

BOOL CopyFile(
  LPCTSTR lpExistingFileName,
  LPCTSTR lpNewFileName,
  BOOL bFailIfExists
);

BOOL MoveFile(
  LPCTSTR lpExistingFileName,
  LPCTSTR lpNewFileName
);

BOOL MoveFileEx(
  LPCTSTR lpExistingFileName,
  LPCTSTR lpNewFileName,
  DWORD dwFlags
);

BOOL DeleteFile(
  LPCTSTR lpFileName
);

// O su version pascalizada

function DeleteFile(const FileName: string): Boolean;

Pues viéndolas así, no parece muy complicado imaginarse como funcionan. Quizá faltaría decirte que para convertir un string en un puntero (LPCTSTR en C, PChar en pascal) se debe de hacer un simple typecast y que el tipo BOOL de C se puede usar como un boolean de pascal. Por si no te queda claro hay te va un ejemplo:

Código Delphi [-]
  CopyFile(PChar('d:\1.jpg'),PChar('d:\2.jpg'),FALSE);

Las otras se usan de forma similar.

[VNNO]

ok dejame voy a revisar y te cuento que tal me fue con eso, annte todo gracias si tienen alguna otr solucion les agradezco