Welche Dateien sind in einem Ordner????

[maximi]

Hallo!
Wie kann ich eigentlich herausfinden, welche Dateien alles in einem Ordner sind??!!!

Danke

[Daniel B]

Huhu,

such doch hier im Forum nach FindFirst, FindNext...

[maximi]

Ok Das Problem hab ich gelöst, aber jetzt habe ich ein weiteres, wie finde ich heraus, welche Ordner in einem Ordner sind?


Max

[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;

...:cat:...

[Rumpi]

Hi,

auch mit FindFirst und FindNext,
sieh dir mal die VCL Doku an.

Attr := faDirectory

mfg Rumpi

[maximi]

Problem gelöst!
Danke!