There is a folder with excel files, you need to know the full names of all these files.
|
3 answers
Discover the FindFirst and FindNext functions .
Nofate ♦ Nofate
32.5k 13 55 86
|
procedure ListFileDir(Path: string; FileList: TStrings); var SR: TSearchRec; begin m:=0; if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin repeat if (SR.Attr <> faDirectory) then begin ar[m]:=SR.Name; st[m]:=ar[m]; l:=Length(ar[m]); Delete(st[m], l-3, 4); FileList.Add(st[m]); m:=m+1; end; until FindNext(SR) <> 0; FindClose(SR); end; end; 
Sh4dow
13.8k sixteen 33
close_id close_id
eleven one
|
http://delphibasics.ru/FindFirst.php
SoftR SoftR
963 four eight
|