AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Library: Dateien / Laufwerke Delphi Verzeichnisse nach Dateien durchsuchen
Thema durchsuchen
Ansicht
Themen-Optionen

Verzeichnisse nach Dateien durchsuchen

Ein Thema von sakura · begonnen am 14. Jan 2003 · letzter Beitrag vom 15. Mär 2008
 
CalganX

Registriert seit: 21. Jul 2002
Ort: Bonn
5.403 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Verzeichnisse nach Dateien durchsuchen

  Alt 17. Dez 2004, 20:29
mirage228 hat noch auf folgendes hingewiesen:
Zitat von mirage228:
Mir ist ein kleiner Fehler aufgefallen:
IncludeTrailingPathDelimiter(RootFolder); Erstmal ist Delphi-Referenz durchsuchenIncludeTrailingPathDelimiter eine Funktion, die das Ergebnis im Rückgabewert hat und außerdem gibt sie erst ab Delphi 4 oder höher (genauso, wie Delphi-Referenz durchsuchenIncludeTrailingBackslash)

Ich verwende dabei diesen Code, der dem dort oben recht ähnlich ist:
Delphi-Quellcode:
procedure FileList(const APath, AExt: string; ARecurse: Boolean;
  AList: TStrings);
var
  F : TSearchRec;
  Path : string;
begin
  Path := IncludeTrailingPathDelimiter(APath); // nur für Delphi 4 und höher!
  if (ARecurse) and
    (FindFirst(Path + '*.*', faAnyFile, F) = 0) then
  try
    repeat
      if (F.Name <> '.') and (F.Name <> '..') and
        ((F.Attr and faDirectory) = faDirectory) then
        FileList(Path + F.Name, AExt, ARecurse, AList);
    until FindNext(F) <> 0;
  finally
    FindClose(F);
  end;
  if FindFirst(Path + AExt, faAnyFile, F) = 0 then
  try
    repeat
      if (F.Name <> '.') and (F.Name <> '..') and
        ((F.Attr and faDirectory) <> faDirectory) then
        AList.Add(Path + F.Name);
    until FindNext(F) <> 0;
  finally
    FindClose(F);
  end;
end;
  Mit Zitat antworten Zitat
 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz