alle dirs eines laufwerks auflisten

[agm65]

hat da jemand eine funktion dafür?

Delphi-Quellcode:

listdirs(drive:string);
var
sl:tstringlist;
begin
sl.add(dirs);

end;

irgendwie sowas ? hab schon hier gesucht aber nichts gefunden..

[Daniel G]

Hast du in der CL mal nachgesehen?

http://www.delphipraxis.net/internal_redirect.php?f=33

[agm65]

ich check das mal

[agm65]

ist alles nicht was ich suche ...einfach nur die auflistung aller dirs eines drives ?

[scrat1979]

Hallo!

Habe mir mal eine Datei/Verzeichnis-Auflistkomponente geschrieben. Habe ich meinem Post angefügt. Einfach diese verwenden :-) oder den Source kopieren und entsprechend abändern wenn Du die ganzen zusätzlichen Funktionen nicht brauchst. Viel Spass!

SCRaT

[agm65]

huch, vielen dank erstmal...kannst du mir noch einen simplen aufruf einer dieser dir function sagen ?

[Luckie]

@agm65: Hast du überhaupt mal in der Code-Library geguckt? Dort gibt es nämlich mehrere fertige Routine., wie man dateien und Verzeichnisse auflisten kann.

[agm65]

lol...ich such nochmal

hey luckie, kannst du deiner DriveTools v2.0 nicht noch einfach eine function find all dirs dazumachen :wink: ?

[edit=Luckie]Du bist jetzt vier Jahre im Foum angemeldet und solltest langsam die editier Funktion von Beiträgen kennen. Überflüssiges Posting gelöscht. Mfg, Luckie[/edit]
[edit=SirThornberry]Den von Luckie weg rationalisierten Smilie wieder gesetzt :mrgreen: Mfg, SirThornberry[/edit]

[SirThornberry]

Hey agm65, kannst du diese paar Zeilen nicht einfach selbst tippen anstelle alles nur kopieren zu wollen :wink: ?

[agm65]

ja okay... dachte nur vll will der luckie das zu seiner coolen unit noch dazufügen ;) (ausrede)

[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

[agm65]

marabu, danke, du bist der beste ! ich bin dir so unendlich dankbar ...ich mach da jetzt echt schon seit tagen rum und das geht endlich genauso wie es gehen soll ! werden das direkt zu meinen sources legen...danke dir ! :love: