Zitat von
DeddyH:
FindFirst steht doch schon im Post des Threaderstellers.
Das damit die Listbox gefüllt wird, aber laut Threadersteller wird dann die Liste in der ListBox durchgegangen. Also will man zum Zeitpunkt der Listeniteration unterscheiden und nicht beim eintragen...
Delphi-Quellcode:
var
lSR: TSearchRec;
begin
if FindFirst(ListBox1.Items[0], lSR) then
begin
if lSR.Attr and faDirectory = faDirectory then
ShowMessage('dir')
else
ShowMessage('file');
FindClose(lSR);
end;
end;