if (TabSave.getMaxIndice <> -1) then
begin
prgcopie.Max := tabsave.getMaxIndice;
prgcopie.Show;
Screen.Cursor:=crHourGlass;
for i := 0 to tabsave.getMaxIndice do
begin
destination := PATH_REP_DEST + rightstr(tabsave.getNomFichier(i),length(tabsave.getNomFichier(i))-3);
If ((FindFirst(destination,faanyfile,InfoSrce)<>0) or (infosrce.Size <> tabsave.gettaille(i))) then
begin
creationrep(extractfiledir(destination));
copiefichier(tabsave.getNomFichier(i),destination);
prgcopie.Position := prgcopie.Position + 1;
end;
end;
prgcopie.Hide;
FindClose(InfoSrce);
Screen.Cursor:=crdefault;
end;
Partager