pokexperto1,
Cita:
...sigue sin funcionar...CopyFile...
|
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
openDialog : TOpenDialog;
chosenDirectory : String;
FromFileName, ToFileName : String;
MsgUser : String;
begin
openDialog := TOpenDialog.Create(self);
openDialog.InitialDir := GetCurrentDir;
openDialog.Options := [ofFileMustExist];
openDialog.Filter := 'Archivo a Copiar|*.*';
openDialog.FilterIndex := 1;
if openDialog.Execute then
begin
if SelectDirectory('Seleccione un Directorio de Destino de Copia', 'C:\', chosenDirectory) then
begin
FromFileName := openDialog.FileName;
ToFileName := chosenDirectory + ExtractFileName(openDialog.FileName);
if Copyfile(PChar(FromFileName),PChar(ToFileName),True) then
MsgUser := 'Archivo Copiado'
else
MsgUser := 'El Archivo No Fue Copiado, Existe en el Directorio Destino';
MessageDlg(MsgUser,mtInformation,[mbOK],0);
end
else
begin
MsgUser := 'No se Selecciono Ningún Directorio de Destino';
MessageDlg(MsgUser,mtInformation,[mbOK],0);
end;
end
else
begin
MsgUser := 'No se Selecciono Ningún Archivo para Copiar';
MessageDlg(MsgUser,mtInformation,[mbOK],0);
end;
openDialog.Free;
end;
end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32,
permite copiar un archivo de un directorio cualquiera a un directorio destino por medio de la función CopyFile.
Espero sea útil
Nelson.