Unterverzeichnisse ermitteln

[Jackthecoder]

HI @ all

ich habe folgendes problem:

ich möchte die unterverzeichnisse eines verzeichnisses ermitteln und am besten in einer txt datei speichern.

zum beispiel:

Das ist mein Hauptverzeichnis

C:\Programme\Messenger

Unterverzeichnisse:

C:\Programme\Messenger\Hello
C:\Programme\Messenger\Hi
C:\Programme\Messenger\Ciao

in diesem Messenger Verzeichnis befinden sich weitere verzeichnisse und diese will ich ermitteln und in einer txt datei festhalten. Die text datei soll dann folgendermasen aussehen:

Hallo, Hi, Ciao

ich hoffe ihr wisst was ich meine, bin noch voll der anfänger.....

thx

[Jelly]

Erster Schritt sollte definitiv mal die hübsche Suchfunktion hier im Forum sein. Das Thema hatten wir tonnenweise... Stichwort: FindFirst, FindNext, TSearchRec

[Jackthecoder]

ich habe die suche schon durchforstet aber verstehe die ergebnisse noch nicht ganz deswegen dachte ich mir ob jemand mir das nicht doch vieleicht noch besser erklären könnte

[Jelly]

Wenn ich nach findfirst unterverzeichnisse suche, kriege ich eine ganze Reihe an sinnvoller Threads. Was genau verstehst Du denn nicht?

EDIT:
z.B. dieser Thread beschreibt eigentlich genau was Du vorhast.

[Jackthecoder]

wie genau benutze ich diese procedure?

Delphi-Quellcode:

procedure GetSubDirs(const sRootDir: string; slDirectories: TStrings);
var
   srSearch: TSearchRec;
   sSearchPath: string;
   slSub: TStrings;
begin
   Screen.Cursor := crHourGlass;
   slSub := TStringList.Create;
   slDirectories.BeginUpdate;
   try
      sSearchPath := sRootDir;
      if FindFirst(sSearchPath + '*', faDirectory, srSearch) = 0 then
         repeat
            if ((srSearch.Attr and faDirectory) = faDirectory) and
               (srSearch.Name <> '.') and
               (srSearch.Name <> '..') then begin
               slDirectories.Add(sSearchPath + srSearch.Name);
               slSub.Add(sSearchPath + srSearch.Name);
            end;
         until
            (FindNext(srSearch) <> 0);

      FindClose(srSearch);
   finally
      slDirectories.EndUpdate;
      FreeAndNil(slSub);
      Screen.Cursor := crDefault;
   end;
end;

also wie rufe ich sie auf?

wenn ich jetzt das ergebnis in ein memo reinschreiben lassen will.

[DeddyH]

Hallo,

ich habe die Prozedur ein wenig abgeändert:

Delphi-Quellcode:

procedure GetSubDirs(const sRootDir: string; slDirectories: TStrings);
var
   srSearch: TSearchRec;
   sSearchPath: string;
//   slSub: TStrings;
begin
   Screen.Cursor := crHourGlass;
//   slSub := TStringList.Create;
   slDirectories.BeginUpdate;
   slDirectories.Clear;
   try
     sSearchPath := IncludeTrailingBackslash(sRootDir);
     if FindFirst(sSearchPath + '*', faDirectory, srSearch) = 0 then
       begin
         repeat
            if ((srSearch.Attr and faDirectory) = faDirectory) and
               (srSearch.Name <> '.') and
               (srSearch.Name <> '..') then begin
               slDirectories.Add(sSearchPath + srSearch.Name);
//               slSub.Add(sSearchPath + srSearch.Name);
            end;
         until
            (FindNext(srSearch) <> 0);

         FindClose(srSearch);
       end; 
   finally
      slDirectories.EndUpdate;
//      FreeAndNil(slSub);
      Screen.Cursor := crDefault;
   end;
end;

Aufrufen kannst Du sie z.B. so:GetSubDirs('C:\Programme',Memo1.Lines); //Edit: IncludeTrailingBackslash an die richtige Stelle gesetzt

[Jackthecoder]

das ist echt voll nett von dir danke......

jetzt hätte ich nur noch eine kleine frage:

ich will nur den ordnernamen haben und nicht den ganzen pfad wie kann ich den pfad noch aus dem memo löschen?

[quendolineDD]

slDirectories.Add(sSearchPath + srSearch.Name); in

slDirectories.Add(srSearch.Name); ändern

[Matze]

@DeddyH: Afaik sollte man anstelle von IncludeTrailingBackslash besser IncludeTrailingPathDelimiter nutzen. Ich bin mir aber nicht mehr ganz sicher, mach es selbst aber so, seitdem ich das irgendwo mal gelesen habe.

@Jackthecoder: Dir fehlen einige Delphi-Grundlagen, glaube ich. Arbeite mal den Delphi-Crashkurs durch. Ohne die Grundlagen wirst du dich immer schwer tun, glaub mir.

[Jackthecoder]

@Matze
jo ich setz mich da gleich ma ran

@ all

danke für eure hilfe ich hab alles so hinbekommen wie ich wollte......big thx