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

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

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

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.

wie genau benutze ich diese procedure?

zusammenfalten · markieren

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.

Hallo,

ich habe die Prozedur ein wenig abgeändert:

zusammenfalten · markieren

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

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?

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

slDirectories.Add(srSearch.Name); ändern

@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.

@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