|
Registriert seit: 14. Aug 2004
1.426 Beiträge
Delphi 2007 Professional
|
Re: FindFirst - faAnyFile, SearchRec
30. Nov 2006, 16:17
Delphi-Quellcode:
if
FolderDialog1.Execute=True then begin
s:=FolderDialog1.Directory;
i := FindFirst(s+'\*.*', faAnyFile, SearchRec);
while i = 0 do
begin
if not ( (SearchRec.Name = '.') or (SearchRec.Name = '..') ) then
ListBox1.Items.Add(s+'\'+SearchRec.Name);
Gruss Hans
2B or not 2B, that is FF
|