[serjufa]

Появилась задача - конвертнуть db в dbf. Если бы было мало файлов- юзал бы "Database Tour Pro". Проблема в том, что эти файлы разбросаны по папкам разных иерархий и искать и конвертить их надо программно. Ниже привожу код, который все делать, но результат не выводит

var
Form1: TForm1;
TblSource_String, TblDest_String : String;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
WITH tblSource do begin
Active := False;
DatabaseName := 'Auto_Db';
TableType := ttParadox;
TableName := TblSource_String ;
Active := true ;
END;//with

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
tblSource.Active := False;
Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
TblDest.TableName := TblDest_String;

with QueryDB2DBF do
begin
Close;
SQL.Clear;
SQL.Add('SELECT *');
SQL.Add('FROM "'+TblSource_String+ '"');
// SQL.Add(String_Line);
Open;
if RecordCount > 0 then
begin
// ПОСЛЕ SQL СОЗДАДИМ /ДОБАВИМ В РЕЗУДЬТИР. БД
if not FileExists(TblDest_String+'.dbf') then
DbiMakePermanent(QueryDB2DBF.Handle,PChar(TblDest_ String),True)
else
begin
with BatchMove1 do
begin
Mode := batAppend;
Execute;
end;
end; // if not FileExists(TblDest+'.dbf') then
Close;

end;
end;


end;

procedure TForm1.FormActivate(Sender: TObject);
begin
TblSource_String := 'C:\AUTOWORK\DB\pgor0689.db';
TblDest_String := 'C:\AUTOWORK\DB\pgor0689.dbf';
end;