filesize

[gusspagano]

Empezado por gusspagano

ahh, entonces no es lo mismo linea que registro!!

esto es lo que hago:

Código Delphi [-]
procedure TForm1.btnOkClick(Sender: TObject);
var
  origen,destino,archivo: string;
  lista: textfile;
  lineas,contador,porcentaje: integer;
begin
  origen:=edtOrg.Text;
  destino:=edtDtn.Text;
  assignfile (lista, opdLst.FileName);
  reset (lista);
  lineas:=filesize(lista);
  showmessage (inttostr(lineas));
  contador:=0;
  porcentaje:=0;
  readln (lista,archivo);
  while not Eof (lista) do
  begin
    copyfile(pchar(origen+'\'+archivo),pchar(destino+'\'+archivo),true);
    readln (lista,archivo);
   contador:=contador+1;
    porcentaje:=trunc(contador*(100/lineas));
    Form1.ProgressBar1.Position:=porcentaje;
  end;
  copyfile(pchar(origen+'\'+archivo),pchar(destino+'\'+archivo),true);
  closefile (lista);
  form1.ProgressBar1.Position:=0;
  showmessage ('MISSION COMPLETE !!');
end;

perdón, me faltó decir que según yo, usaría el número de lineas para luego mostrar el avance en una barra de proceso.

Eso es lo que intento hacer, algo sencillo para ustedes seguramente.