Liste med undermapper

type
  TSubDirs = class(TStringList)
  private
    fPath : string;
    fOrgPath : string;
  public
    constructor Create(const aPath : string);
    procedure Refresh;
    property Path : string read fPath;
  end;

implementation

constructor TSubDirs.Create(const aPath : string);
begin
  inherited Create;
  fPath := aPath;
  GetDir(0,fOrgPath);

  self.Refresh;
end;

procedure TSubDirs.Refresh;
var
  sr : TSearchRec;
  bOK : boolean;
begin
  chdir(fPath);
  BeginUpdate;
  try
    Clear;
    bOK := FindFirst('*',faDirectory,sr) = 0;
    try
      while bOK do begin
        if sr.Name[1] <> '.' then
          Add(sr.name);
        bOK := FindNext(sr) = 0;
      end; // while
    finally
      FindClose(sr);
    end; // try
  finally
    EndUpdate;
    chdir(fOrgPath);
  end;
end;

En lille demo med en TListBox ser sådan ud:

procedure TfrmMain.Button1Click(Sender: TObject);
var
  SubDirs : TSubDirs;
begin
  SubDirs := TSubDirs.Create('c:\program files');
  try
    ListBox1.Items.Assign(SubDirs);
  finally
    SubDirs.Free;
  end; // try
end;

P.S. Borrisholt har lavet en sød lille klasse der bruger Windows' "NuSkerEerNogetIKataloget" message. Derved bliver man informeret så snart der sker det mindste i kataloget - Her kunne man passende placere en TSubDirs.Refresh.

Linket er: www.borrisholdt.com, led efter FindFirstNotify.

http://www.borrisholt.com/FileIO/DelphiSource/FindFirstNOTIFY.zip

Super. Det var lige det. Tak for hjælpen.

>>AASuper