søg

kig på det her fra martin, er noget som kan scanne mapper også:

http://195.184.32.198/mali/uScanner.pas

/ZIRON

FindFirst søger kun i en folder - og ikke engang subfolders.

Du skal altså hode den så den søger efter subfolders og forsætter med søgningen.

Jeg har et komponent som kan gøre det, det er freeware og med source.

kom med din mail så får du den.

dkn

Gem den her som FindFile.pas:


unit FindFile;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, FileCtrl;

type
  TFileAttrKind = (ffaReadOnly, ffaHidden, ffaSysFile, ffaVolumeID, ffaDirectory, ffaArchive, ffaAnyFile);
  TFileAttr = set of TFileAttrKind;

  TFindFile = class(TComponent)
  private
    s : TStringList;

    fSubFolder : boolean;
    fAttr: TFileAttr;
    fPath : string;
    fFileMask : string;

    procedure SetPath(Value: string);
    procedure FileSearch(const inPath : string);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    function SearchForFiles: TStringList;
  published
    property FileAttr: TFileAttr read fAttr write fAttr;
    property InSubFolders : boolean read fSubFolder write fSubFolder;
    property Path : string read fPath write SetPath;
    property FileMask : string read fFileMask write fFileMask ;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(\'Samples\', [TFindFile]);
end;

constructor TFindFile.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Path := IncludeTrailingBackslash(GetCurrentDir);
  FileMask := \'*.*\';
  FileAttr := [ffaAnyFile];
  s := TStringList.Create;
end;

destructor TFindFile.Destroy;
begin
  s.Free;
  inherited Destroy;
end;

procedure TFindFile.SetPath(Value: string);
begin
  if fPath <> Value then
  begin
    if Value <> \'\' then
      if DirectoryExists(Value) then
        fPath := IncludeTrailingBackslash(Value);
  end;
end;

function TFindFile.SearchForFiles: TStringList;
begin
  s.Clear;
  try
    FileSearch(Path);
  finally
    Result := s;
  end;
end;

procedure TFindFile.FileSearch(const InPath : string);
var Rec  : TSearchRec;
    Attr : integer;
begin
Attr := 0;
if ffaReadOnly in FileAttr then Attr := Attr + faReadOnly;
if ffaHidden in FileAttr then Attr := Attr + faHidden;
if ffaSysFile in FileAttr then Attr := Attr + faSysFile;
if ffaVolumeID in FileAttr then Attr := Attr + faVolumeID;
if ffaDirectory in FileAttr then Attr := Attr + faDirectory;
if ffaArchive in FileAttr then Attr := Attr + faArchive;
if ffaAnyFile in FileAttr then Attr := Attr + faAnyFile;

if SysUtils.FindFirst(inPath + FileMask, Attr, Rec) = 0 then
try
  repeat
    s.Add(inPath + Rec.Name);
  until SysUtils.FindNext(Rec) <> 0;
finally
  SysUtils.FindClose(Rec);
end;

If not InSubFolders then Exit;

if SysUtils.FindFirst(inPath + \'*.*\', faDirectory, Rec) = 0 then
try
  repeat
  if ((Rec.Attr and faDirectory) > 0) and (Rec.Name<>\'.\') and (Rec.Name<>\'..\') then
    begin
      FileSearch(IncludeTrailingBackslash(inPath + Rec.Name));
    end;
  until SysUtils.FindNext(Rec) <> 0;
finally
  SysUtils.FindClose(Rec);
end;
end;

end.

hvordan skal jeg så fra en anden form bruge setpathog alle de andre

Du gemmer overnævnte kode med navnet \"FindFile.pas\"
Derefter går du ind i delphi, meuen -> Component -> Install Component -> Into New Package -> Åbner files som du lige gemte, og skriver \"_findfile\" i package filename.

og så ok. Ny har den bygget componentet, og det skal nu bare installeres ved at klike \"Install\" i den lille dialog som er kommet frem.

Efter alt dette kopier du FindFile.pas til mappen: Delpi\\LIB\\

Nu er den installeret, jeg tror at du kan finde componenten under sample.

dkn

Som Ziron skrev har jeg lavet en comp. du kan bruge www.e-lind.dk
den hedder scanner

/Martin

Hvis du ikke vil bruge komponenter kar jeg skrevet en klasse der kan det sammen .. Den finder du på http://borrisholt.com

Jens B