\'Search\'

http://borrisholt.com/MSIE.htm menu File I/O

Sådan :

procedure 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
        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;

/Martin

Kan ikke umiddelbart kompilere koden.
Brokker sig over -
[Error] Unit1.pas(70): Undeclared identifier: \'IncludeTrailingBackslash\'

compilos << Det er fordi du ikke har tilføjet den unit til din uses, som indeholder IncludeTrailingBackslash. Jeg mener vistnok at den ligger i SysUtils, men ellers prøv dig frem med de brugte units. Den ligger der et eller andet sted.

På http://Borrisholt.com under File IO, finder du er færdigt eksempel du kan downloade ....

Jens B

Inclu.... er en std Delphi function stil dig på den og tryk F1 så kan du se hvor den hører hjemme

Delphidaner >> Det er rigtig det er SysUtils den ligger i.

/Martin

Jeg fatter heller ikke en skid.

Jeg kunne godt tænke mig hvor f.eks. hele c:\\ og alle filerne med stierne blev skrev i et memo-felt.
`Jeg mener komplet kode - derfor NU 300 point\'

compilos>> Du skal bruge Unit2 fra ThreadSearch projektet fundet på http://borrisholt.com.

Så sakal du lave dig en form med en knap og en Memo felt. Så \"skriver\" du det følgende ....

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Unit2,
  StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    Procedure FileFound(FileName : TFileName; Attr: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

Procedure TForm1.FileFound(FileName : TFileName; Attr: Integer);
begin
  Memo1.Lines.Add(FileName);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  RecurseDirs : TRecurseDirs;
begin
  RecurseDirs := TRecurseDirs.Create;

  with RecurseDirs do
  begin
    Path :=\'c:\\\';
    RecurseDir := false;
    OnFileFound := FileFound;
    Start;
  end;

end;

end.


Hvis det ikke er tilstrækkeligt så må du lige sende mig en mail : Jens@Borrisholt.com

Jens B

Ja i må meget undskylde men hvor svært kan det være :
-------------------------------------

procedure 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
        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;

Procedure TForm1.Button1.Click( Sender : TObject );
begin
  ScanFiles(\'C:\\\',TRUE,Memo1.Lines); 
end;

-------------------------------
Så nemt er det...

/Martin

Hvis du stadig ikke kan få det til at virke så drop en mailadr. så sender jeg noget kode til dig

Jeg har ikke været helt tilfredes med svarene - da de ikke er helt rigtige for mig.
Jeg bruger delphi 4, og der tror jeg ikke rigtig funktionen eller hvad det nu er eksistere - IncludeTrailingBackslash.
Lad det ligge - jeg giver jer begge point da i altid er hurtige med et svar.

Og ellers tak for hjælpen