PDA

Ver la Versión Completa : CopyFile


ilcapo
04-02-2006, 17:17:58
Hola, donde puedo encontrar algun ejemplo de CopyFile para copiar una carpeta con CopyFile, ¿hay que copiar archivo a archivo o copia directorios enteros?

Gracias

[Gunman]
04-02-2006, 19:44:49
te recomiendo hacerlo de otra forma...
Estaba preparando un ejemplo de explorador con funciones de la WinAPI, pero desgraciadamente todos mis proyectos de delphi se fueron a la mierda (buaahhh :(:(:(). De todas formas te digo la función que puedes usar:
ShFileOperation junto a un tipo _ShFileOpStruct. Un ejemplo:
procedure Copiar(From, To: String);
var
Operation: _ShFileOpStruct;
begin
Operation.Wnd := Form1.Handle;
Operation.wFunc := fo_copy;
Operation.pFrom := PChar(ExcludeTrailingPathDelimiter(From));
Operation.pTo := PChar(ExcludeTrailingPathDelimiter(To));
Operation.fFlags := FOF_CONFIRMMOUSE;
ShFileOperation(Operation);
end;
Esta función puede copiar, mover, cambiar el nombre y eliminar archivos y carpetas, para más información escribe en al ayuda de programación para Windows (no es la ayuda F1 de Delphi): ShFileOperation.
Suerte!

ilcapo
04-02-2006, 23:24:34
Gracias por la respuesta, ¿alguien puede traducirlo a builder?

[Gunman]
05-02-2006, 10:31:16
Sorry, no me había dado cuenta de que estabas en Builder, bueno, yo te puedo contestar más o menos. La función va a ser la misma, porqué al estar en la WinAPI es independiente del lenguaje de programación, la variable _ShFileOpStruct, prueba con ella, creo que también será igual y lo demás pues igual que hace una asignación, si es como en C, creo que es = no?
Por ejemplo:
Operation.wFunc = fo_copy;