Optæl dir og filer?

Brug FindFirst/FindNext. Borrisholt har (så vidt jeg husker) nogle eksempler på hans hjemmeside: www.borrisholt.com

Jeg har tidligere vist en Scandir function, så den burde du kunne finde her et sted.

/Martin

Der er kun den hårde måde på det at skrive dig en algoritme der løber der hele i gennem og tæller dem efter hånden som du løber på dem ....


Men fortvivl ikke selve algoritmem kan du hugger fra mig. Du gå på http://borrisholt.com og downloader eksemplet ThreadSearch.

Den klasse du finder i det eksempel sætter du bare til at søge.. Også i dit file found event tæller du op alt efter hvad dne har fundet.

Jens B http://fotx.net/borrisholt

Borrisholt> Det er sgu da en HEST du har der på siden - Jeg er rørt  ;-)

Det lyder godt Borris...... Jeg ser lige på det

pellelil >> Hvad skulle jeg ellers stoppe på ?

Jens B

Noget i denne stil kan :

procedure TForm1.ScanFiles( const aPath : String; Subs : Boolean; const L : TStrings );
VAR
  S  : TSearchRec;
  CPath : String;
begin
  ChDir(aPath);
  GetDir(0,CPath);

  if FindFirst(IncludeTrailingBackslash(CPath)+\'*.*\',faANYFILE,S) = 0 then
  repeat
      if ( S.Attr and faSysFile = 0 ) and ( S.Attr and faDIRECTORY = 0 ) and
        ( S.Attr and faVolumeID = 0 ) and ( S.Name[1] <> \'.\' ) and ( S.Name[1] <> \'..\' ) then
      begin
        // Do the stoff here
        if OkToAdd(IncludeTrailingBackslash(CPath)+S.FindData.cFileName) then
          L.Add(IncludeTrailingBackslash(CPath)+S.FindData.cFileName);
      end;
  until FindNext(S) <> 0;
  FindClose(S);

  if Subs and ( FindFirst(\'*.*\',faDIRECTORY,S) = 0 ) then
  repeat
      if ( S.Attr and faDIRECTORY <> 0 ) and ( S.Name[1] <> \'.\' ) and ( S.Name[1] <> \'..\' ) then
      begin
        ScanFiles(IncludeTrailingBackslash(CPath)+S.Name,Subs,L);
        ChDir(\'..\');
      end;
  until FindNext(S) <> 0;
  FindClose(S);
end;


Der er hvad du skal bruge.

/Martin

Du fjerner bare if OkToAdd linen så skulle den virke.

Ser også godt ud Martinlind.... Jeg må lige se lide på jeres eksempler

Martinlind >> Hvad skal jeg skrive når jeg skal kalde proceduren? Hvad skal der sendes i APath, subs og L?

procedure TForm1.ScanFiles( const aPath,aMask : String; Subs : Boolean );
VAR
  S  : TSearchRec;
  CPath : String;
  hFile, size: integer;
begin
  ChDir(aPath);
  GetDir(0,CPath);

  if FindFirst(IncludeTrailingBackslash(CPath)+aMask,faANYFILE,S) = 0 then
  repeat
      if ( S.Attr and faSysFile = 0 ) and ( S.Attr and faDIRECTORY = 0 ) and
        ( S.Attr and faVolumeID = 0 ) and ( S.Name[1] <> \'.\' ) and ( S.Name[1] <> \'..\' ) then
      begin
        Label5.Caption := IntToStr(TCount);
        Label6.Caption := IntToStr(DCount);
        Inc(TCount);
        Form1.Refresh;
      end;
  until FindNext(S) <> 0;
  FindClose(S);

  if Subs and ( FindFirst(\'*.*\',faDIRECTORY,S) = 0 ) then
  repeat
      if ( S.Attr and faDIRECTORY <> 0 ) and ( S.Name[1] <> \'.\' ) and ( S.Name[1] <> \'..\' ) then
      begin
        ScanFiles(IncludeTrailingBackslash(CPath)+S.Name,aMask,Subs);
        Inc(DCount);
        Form1.Refresh;
        ChDir(\'..\');
      end;
  until FindNext(S) <> 0;
  FindClose(S);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ScanFiles(\'c:\\\',\'*.*\',TRUE);
end;

/ZIRON

på adressen
http://borrisholt.com/eksperten/kingguro.zip

finder du et færdig eksempel;

Jens B

Ziron >> Nå, det var dig der fik den sidst, kunne ikke lige huske hvem det var *S*

ScanFiles(\'c:\\\',\'*.*\',TRUE);

Sorry, det var ikke rigtigt

VAR
  L : TStrings;

begin
  L := TStringList.Create; 
  ScanFiles(\'C:\\\',TRUE, L);
//  L.Count er lig med antalet af filer, L indeholder en liste med alle filnavne

end;


/Martin

martinlind >> nej ikke helt det var snowball menere jeg... jeg kunne bare huske det havde der og så lige skrive lidt om :-)

/ZIRON

Undskyld Martin. Jeg ville have give dig nogle point.... Kom tal at acceptere ZIRON\'s uden at give jer begge..... En anden gang.... Men tak for hjælpen

Ja Ja, men de er din velundt, Ziron *S*

/Martin

martinlind>> Tillad mig at komme mig med den sædvanlige indvæning for at blokere hele dit operativ system, blot for at tilgå din HD.

Jens B

Jb >> Jeg bliver jo nødt til at protestere, det er altså at skyde gråspurge med kanoner, og lave en ny ståd hvergang man skal foretage sig noget.

Min rutine scaner ca. 20000 filer på 1 min. så det er altså ikke noget med at maskinen hænger i flere timer.