AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

probleme verzeichnisse zu suchen

Ein Thema von 1ermehr · begonnen am 26. Mär 2008 · letzter Beitrag vom 14. Mai 2008
 
angos

Registriert seit: 26. Mai 2004
Ort: Rheine
549 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: probleme verzeichnisse zu suchen

  Alt 26. Mär 2008, 11:29
Hi und herzlich willkommen.

Also ich hab den Code mal übernommen, und der läuft Fehlerfrei (ok, mein verzeichnis hab ich in nem edit stehen, aber das dürfte ja egal sein...)

Verwende doch zukünfitg DElphi-Tags und formatiere den Code um den code überischtlicher darzustellen

Hier einmal mein Code (es werden die "Verzeichnisse '.' und '..' mitgezählt!)

Delphi-Quellcode:
procedure TForm1.btnClick(Sender: TObject);
var
  fts: TSearchRec;
  fcount, dcount: integer;
begin
  fcount := 0;
  dcount := 0;
  findfirst(edt.Text + '\*.*', faDirectory, fts);
  listbox1.Items.Add(fts.Name);
  if fts.Attr = faDirectory then
    inc(dcount, 1)
  else
    inc(fcount, 1);
  repeat
    findnext(fts);
    listbox1.Items.Add(fts.Name);
    if fts.Attr = faDirectory then
      inc(dcount, 1)
    else
      inc(fcount, 1);
  until findnext(fts) <> 0;

  FindClose(fts);
  label1.Caption := inttostr(fcount + dcount) + ' items. ' + inttostr(fcount) +
    ' files, ' + inttostr(dcount) + ' directories.';
end;
EDIT: Das ist im wesentlichen dein Code, nur halt das der Name des Verzeichnisses aus dem edt gezogen wird... Wie gesagt, bei mir gibt der mir in dem Label exakt die Dateianzahl und Verzeichnisanzahl zurück.
Sicher, dass in dem angegebenen Verzeichnis unterverzichnisse liegen?

Gruß
Ansgar
  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 02:38 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 by Thomas Breitkreuz