3
{ This program demonstrates the FindFirst function }
12
If FindFirst ('*',faAnyFile and faDirectory,Info)=0 then
18
If (Attr and faDirectory) = faDirectory then
20
Writeln (Name:40,Size:15);
22
Until FindNext(info)<>0;
25
Writeln ('Finished search. Found ',Count,' matches');
b'\\ No newline at end of file'