Entwickler-Ecke

Dateizugriff - Ordner auflisten[done]


cromos - Mo 29.09.03 17:36
Titel: Ordner auflisten[done]
Hallo.

ich möchte alle Unterordner eines bestimmten Ordner in eine
TCheckListBox einlesen.

wenn ich es so mache:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
 
procedure TForm16.FormCreate(Sender: TObject);

var Paket,Programmordner : String;
var res : Integer;
ds: TSearchRec;
begin
form16.Left := 80;
form16.Top := 130;
paket := form1.lblKontakt.caption;
ProgrammOrdner:=ExtractFilePath(application.ExeName);
res := FindFirst(ProgrammOrdner + 'Data\' + '*',faDirectory,ds);
  while(res =0) do begin

   //Alle Ordner in die Box:
    clb1.Items.Add(ds.name);

  res := FindNext(ds);
end;
FindClose(ds);



end;


dann pakt er alle Ordner aber auch die Dateien in die CheckListBox.
Wie bekomme ich es hin, das er nur die Ordner nimmt???

Gruss
Cromos


MSCH - Mo 29.09.03 18:02
in FindFirst ->faDirectory and not faAnyfile oder


Delphi-Quelltext 
1:
2:
 
if ds.Attribute and faDirectory = faDirectory then
// einfügen


grez
msch


cromos - Mo 29.09.03 23:20
Danke für den Tipp.

mit

Delphi-Quelltext 
1:
 
if ds.Attr and faDirectory = faDirectory then


hat es geklappt. Thanks

Gruss
Cromos


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!