alle dirs eines laufwerks auflisten

[agm65]

okay..ich kriege das einfach nicht hin ..alles was ich hinkriege, ich bekomme alle dirs aber halt doppelt weil dort mehrere files liegen ..aber nicht -> nur die dirs ! erbitte hilfe !

[ErazerZ]

Delphi-Quellcode:

var
  SLDirs: TStringList;
  SearchRec: TSearchRec;
  i: integer;
begin             
  SLDirs := TStringList.Create;
  if FindFirst('c:\*.*', faAnyFile, SearchRec) = 0 then 
  begin
    repeat
      if ((SearchRec.Attr and faDirectory) <> 0) then
        SLDirs.Add(SearchRec.Name);
    until (FindNext(SearchRec) <> 0); 
  end;
  for i := 0 to sldirs.count -1 do
    ShowMessage(Format('[%d/%d] %s', [i +1, SLDirs.Count, SLDirs[i]]));  
  SLDirs.Free;

[agm65]

hey danke, das ist schonmal nicht schlecht ..nur wie bekomme ich jetzt auch alle subdirs ? !

[Luckie]

Mensch guck dir doch mal die Routine in der Code-Lib an und versuch sie mal zu verstehen. Soweit ich sie noch im Kopf habe, sind das änderungen von maximal zwei Zeilen, wenn nicht sogar nur zwei Zeichen.[delphi]

[agm65]

meinst du deine ? bzw kannst du mir den link dazu geben ?

[sirius]

Zitat:

Zitat von agm65

hey danke, das ist schonmal nicht schlecht ..nur wie bekomme ich jetzt auch alle subdirs ? !

rekursiv weitersuchen

[agm65]

hey ich glaube ich bin zu blöd dafür ..kannst du mir sagen wie ?

[sirius]

Ich bin mir sicher, dass ich irgendwo (hier oder bei dsdt.info) schon mal so ne Funktion geschrieben habe. Du musst halt als Übergabeparameter Das Verzeichnis in dem du suchen willst mitgeben und dann findfirst entsprechend im ersten Parameter anpassen.

[agm65]

ich hab gestern und heute morgen alles durchsucht ...vll brauche ich eine stärkere brille ;)

[marabu]

Hallo,

das Prinzip sollte dir schon bekannt vorkommen:

Delphi-Quellcode:

procedure AllFolders(const root: string; s: TStrings);
var
  sr: TSearchRec;
  path: string;
begin
  path := IncludeTrailingPathDelimiter(root);
  if FindFirst(path + '*', faDirectory, sr) = 0 then
  try
    repeat
      if (sr.Name = '.') or (sr.Name = '..') then
        Continue
      else
      if (sr.Attr and faDirectory) = faDirectory then
      begin
        s.Add(path + sr.Name);
        AllFolders(path + sr.Name, s)
      end;
    until FindNext(sr) <> 0;
  finally
    FindClose(sr);
  end;
end;

procedure TDemoForm.Test;
begin
  with ListBox do
  begin
    Items.BeginUpdate;
    AllFolders('C:\daten', Items);
    Items.EndUpdate;
  end;
end;

Grüße vom marabu