Musst du ja auch nicht. Ich hab halt nur keinen Plan.
Glaube aber das ganze hat garnichts mit Bit-Flags und getfilesize zu tun. Selbst wenn ich
if FindFirst(Directory + Mask, faAnyFile - faDirectory, SR) > 0 then SearchedFiles := 1;
einsetzte, kommt als bei meinem Label
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
VAR SearchedFiles : integer;
begin
GetFilesInDirectory('C:\','*.*', ListBox1.Items, False, True, SearchedFiles);
Label1.Caption := IntToStr(SearchedFiles);
end;
4361260 raus!