[denISRU]

Уважаемые, такая задача.. - есть папка в которой появляются файлы DBF их нужно пересохранить в XLS для дальнейших действий. Я поковырявшись в остатках своих знаний наваял код который открывает файл в Экселе, и сохраняет его в нужном формате, вот он

Код:

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject);    dir:= 'C:\temp\';   begin   ExcelApp:=CreateOleObject('Excel.Application');   WorkBook:=ExcelApp.Workbooks.Open(dir+'F20'+'.DBF');   WorkBook.SaveAs(dir+'F20'+'.xls', -4143);//-4143=xlNormal (FileFormat)   WorkBook.Close;  end;

Помогите допилить его чтобы он все файлы в папке последовательно сохранял, гуглил, смотрел - пишут про FidnFisrt FindNext, но я просто не понимаю как их присобачить к моему "творению"...


--------------------------------
допилил вот так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm1.Button1Click(Sender: TObject); var dir: string;      ExcelApp,   WorkBook: variant;   SR:TSearchRec;   FindRes:Integer;      begin    dir:= 'C:\temp\'  ;   if FindFirst(Dir+'F*',faAnyFile,SR) = 0 then begin repeat   ExcelApp:=CreateOleObject('Excel.Application');   WorkBook:=ExcelApp.Workbooks.Open(dir+SR.Name);   WorkBook.SaveAs(dir+SR.Name+'.xls', -4143);//-4143=xlNormal (FileFormat)   WorkBook.Close;    until findnext(SR)<>0  ;  end;   FindClose (SR);  end;   end.

Вроде работает... - так что Уважаемые, проверьте на ...эм... недостатки? - ну мало ли..упустил что то..