Verzeichnisse von einem Server in eine DirectoryListBox???

[perle]

Vielleicht hilft dir das weiter -->

Delphi-Quellcode:

procedure FTPDirToTreeView(AFTP: TidFTP; ATree : TTreeView;
                           ADirectory : String; AItem : TTreeNode;
                           AIncludeFiles : Boolean);
var
  ItemTemp : TTreeNode;
  LS : TStringList;
  i : integer;
begin
  ATree.Items.BeginUpdate;
  LS := TStringList.Create;
  try
    if ADirectory <> '' then
      AFTP.ChangeDir(ADirectory);
    AFTP.List(LS);
    if AnsiPos('total', LS[0]) > 0 then
      LS.Delete(0);
    LS.Sorted := True;
    if LS.Count <> 0 then
    begin
      for i := 0 to LS.Count - 1 do
      begin
        try
          if (Pos('.', LS.Strings[i]) = 0) then
          begin
            AItem := ATree.Items.AddChild(AItem, Trim(Copy(LS.Strings[i],
                                          Pos(':', LS.Strings[i]) + 3,
                                          Length(LS.Strings[i])) + '/'));
            ItemTemp := AItem.Parent;
            FTPDirToTreeView(AFTP, ATree, ADirectory + Trim(Copy(LS.Strings[i],
                             Pos(':', LS.Strings[i]) + 3,
                             Length(LS.Strings[i]))) + '/', AItem, AIncludeFiles);
            AItem := ItemTemp;
          end
        except
        end;
      end;
    end;
  finally
    ATree.Items.EndUpdate;
    LS.Free;
  end;
end;