Вот так осуществляю его, но почему то не копирует 2е таблицы, это table12 и table8. Подскажите в чем может быть проблема пожалуйста.
procedure TForm19.BitBtn3Click(Sender: TObject);
var
BD: string;
Dir: string;
Sr: tsearchrec;
Count: integer;
Result: integer;
InFname, OutFname: string;
begin
If edit2.Text='' then
begin
ShowMessage('Не указан путь для копирования базы данных!');
exit;
end;
DataModule3.Table1.Close;
DataModule3.Table2.Close;
DataModule3.Table3.Close;
DataModule3.Table4.Close;
DataModule3.Table5.Close;
DataModule3.Table6.Close;
DataModule3.Table7.Close;
DataModule3.Table8.Close;
DataModule3.Table9.Close;
DataModule3.Table10.Close;
DataModule3.Table11.Close;
DataModule3.Table12.Close;
DataModule3.Query1.Close;
DataModule3.Query2.Close;
DataModule3.Query3.Close;
DataModule3.Query4.Close;
DataModule3.Query5.Close;
DataModule3.Query6.Close;
DataModule3.Query7.Close;
DataModule3.Query8.Close;
DataModule3.Query9.Close;
DataModule3.Query10.Close;
DataModule3.Query11.Close;
DataModule3.Table1.Open;
DataModule3.Table2.Open;
DataModule3.Table3.Open;
DataModule3.Table4.Open;
DataModule3.Table5.Open;
DataModule3.Table6.Open;
DataModule3.Table7.Open;
DataModule3.Table8.Open;
DataModule3.Table9.Open;
DataModule3.Table10.Open;
DataModule3.Table11.Open;
DataModule3.Table12.Open;
DataModule3.Query1.Open;
DataModule3.Query2.Open;
DataModule3.Query3.Open;
DataModule3.Query4.Open;
DataModule3.Query5.Open;
DataModule3.Query6.Open;
DataModule3.Query7.Open;
DataModule3.Query8.Open;
DataModule3.Query9.Open;
DataModule3.Query10.Open;
DataModule3.Query11.Open;
Animate1.Visible:=true;
Animate1.Active:=true;
Dir:=Edit2.Text;
Count:=1;
Result:=FindFirst(form1.session1.PrivateDir+'\*.db',faAnyfile,Sr);
while Result=0 do
begin
Result:=FindNext(Sr);
Count:=count+1;
end;
FindClose(Sr);
Progressbar1.Max:=count;
Progressbar1.Position:=1;
Result:=FindFirst(form1.session1.PrivateDir+'\*.db',faAnyfile,Sr);
InFname:=form1.session1.PrivateDir+'\'+sr.Name;
OutFname:=dir+'\'+sr.Name;
SetLength(OutFname,100);
SetLength(InFname,100);
CopyFile(pchar(inFname),pchar(OutFname),true);
while Result=0 do
begin
Result:=FindNext(Sr);
InFname:=form1.session1.PrivateDir+'\'+sr.Name;
OutFname:=Dir+'\'+sr.Name;
Setlength(OutFname,100);
Setlength(InFname,100);
CopyFile(pchar(inFname),pchar(OutFname),true);
Progressbar1.Position:=Progressbar1.Position+1;
end;
FindClose(Sr);
Progressbar1.Position:=0;
Animate1.Stop;
Animate1.Visible:=false;
ShowMessage('Копирование базы данных завершено!');
end;