Wie liste ich Dateien mit IdftpServer

[delpher]

Hi leute,

Mich würde interessieren wie ich mit der Indy Komponente "IdFtpserver" meine gesamten Files auf der Platte freigeben kann so das ich sie mit einem Client laden löschen kann.
Habe bis jetzt folgendes gemacht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IDFTPSERVER1.Active:=TRUE;
end;

procedure TForm1.IdFTPServer1ListDirectory(ASender: TIdFTPServerThread;
  const APath: String; ADirectoryListing: TIdFTPListItems);
var
  list : TIdFTPListItem;
begin
  list := ADirectoryListing.Add;
  list.Size             := 0;
  list.ModifiedDate     := now;
  list.FileName         := 'C:\';
  list.ItemType         := ditDirectory;
end;

Jetzt listet er mir aber nicht C:\ sondern nur ne Verzeichniss was so heisst will aber alles sehen weiss jemand was ???

Bin für jeden tip dankbar!

[edit=SirThornberry]Delphi-Tag geschlossen - Mfg, SirThornberry[/edit]