Welche Dateien sind in einem Ordner????

[sakura]

Mit den gleichen Funktionen und dann den Wert Attr des Records überprüfen.

Delphi-Quellcode:

var
  SR: TSearchRecord;
begin
  if FindFirst('C:\*.*', faAnyFile, SR) = 0 then
  try
    repeat
      if SR.Attr and faDirectory = faDirectory then
        ShowMessage('Folder: ' + SR.Name)
      else
        ShowMessage('File: ' + SR.Name);
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;

......