pokexperto1,
Cita:
...sigue sin copiar nada...código de nelson (nlsgarcia) tal cual esta en el foro...
|
Revise el vídeo que colocastes en Youtube
y veo que usas Delphi XE7.
Pregunto :
1- ¿Que versión de
Windows utilizas?, ¿Es de
32 ó 64 bits?.
2- ¿Estas compilando
en 32 ó 64 bits?
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, System.UITypes;
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 XE7 sobre Windows 10 Technical Preview x32,
permite copiar un archivo de un directorio cualquiera a un directorio destino por medio de la función CopyFile.
Nota : En el código del
Msg #6, faltaba incluir
el carácter '\' en el String ToFileName.
Espero sea útil
Nelson.