Dateien im Verzeichnis zählen

[EvilDragon]

wieder mal ich,
bräuchte nen einfachen code der in einem verzeichenis (z.b. C:/ordner/) alle *.dat dateien zählt, also ich brauche eigentlich halt die zahl (anzahl der dateien)

hoffe jemand kann dat ganz easy aus dem ärmel schütteln

[Sharky]

Hai EvilDragen,

Du wirst nicht darum kommen die Dateien mit FindFirst und FindNext zu zählen.

[EvilDragon]

hm.. da mit komm eich noch net so ganz klar, gibts vieleicht nen einfachen code hm.. mit kommentar oder so??? halt als demonstration

[SirThornberry]

Delphi-Quellcode:

function CountFilesInFolder(AFolder: String; AMask: String): Integer;
var tmp1: TSearchRec; //Record in den FindFirst/Findnext die Daten schreibt
    ergebnis: Integer; //zur Zwischenspeicherung von Findfirst und FindNext
begin
  result := 0;
  if (AFolder <> '') then //wenn kein Pfad angegeben wurde könn wir gleich abbrechen...
  begin
    if AFolder[length(AFolder)] <> '\' then AFolder := AFolder + '\'; //wenn AFolder keinen '\' am Ende hat fügen wir einen an weil "c:\mypfad" + "*.*" schief gehen würde
    ergebnis := FindFirst(AFolder + AMask, faArchive + faReadOnly + faHidden + faSysFile, tmp1);  //erste Datei aus Verzeichnis holen. Ergebnis <> 0 = nix gefunden
    while ergebnis = 0 do //solange wie Dateien gefunden wurden weitersuchen
    begin
     Inc(result); //anzahl der gefundenen Dateien erhöhen
     ergebnis := FindNext(tmp1);  //nächste Datei suchen
     while ((tmp1.Name = '.') or (tmp1.Name = '..')) and (ergebnis <> 0) do ergebnis := FindNext(tmp1); //Filtert "." und ".." raus. Eigentlich unnötig weil wir Ordner nicht berücksichtigen, aber bleibt drin falls wir die Attribute mal wieder um "faDirectory" erweitern
    end;
    FindClose(tmp1); //Am Ende der Auflistung sollten wir das SearchRec wieder freigeben
  end;
end;

Beispielaufruf:
  showmessage(inttostr(countfilesinFolder('c:\', '*.dat'); [Edit]Kommentare im Quelltext hinzugefügt zum besseren Verständnis[/Edit]

[EvilDragon]

SirThornberry

danke, blick ezwa rnciht gnaz durch was es genua tut aber es läft einwandfrei *g*

[torud]

Vielleicht blickst Du nicht ganz durch, weil Du Dir nicht die zeit nimmst es zu verstehen oder Dir genügend Mühe gibst!???

Ich denke, dass die, die Dir den Code zur Verfügung stellen Deine Aufmerksamkeit und Deinen Versuch diesen Code zu verstehen, als Mindestlohn verdient haben!

[TypusMensch]

Anmerkung:
HIER findest du eine erweiterte Funktion.

[Sharky]

Ähmmm.... ihr habt aber schon gesehen wie alt der Thread ist oder?