各位Delphi前輩：

FTP----->Office(目錄)----->PPT(目錄)----->Ppt.ppt(檔案)
        |            |
        |            |
        |            ----->DOC(目錄)----->Doc.doc(檔案)
        |
        ----->Txt.txt(檔案)

(FTP下包含一個Office的目錄及Txt.txt的檔案，Office的目錄包含PPT及DOC兩個目錄，PPT包含一個Ppt.ppt的檔案，DOC包含一個Doc.doc的檔案) 使用IDFTP的元件 請問如何將Ppt.ppt、Doc.doc、Txt.txt這三個檔案放在TListBox中?敬請指教，感激不盡…

------
~小弟淺見，參考看看~

channel大大你好  用 IDFTP我可能不太會用 你可以試試引用WinINET.Pas 利用FtpGetCurrentDirectory 取代GetCurrentDirectory 用FtpFindFirstFile  FData:TWin32FindData; FFtpHandle,FInet,FHandle:HInternet; ex: FInet:=Internetopen(Pchar(APPNAME),0,nil,nil,0); FFtpHandle:=Internetconnerct(FINET,Pchar(Server),0, PChar(Userid),PChar(PassWord),Internet_Service_FTP,0, WININET_API_FLAG_USE_CONTEXT); FHandle:=FtpFindFirstFile(FFtpHandle,'*.*',FData,0,0) InternetFindnextFile(FHandle,@FData) 找完檔案請記得呼叫InrernetCloseHandle(FHandle)不然可能會有錯 搞不懂!搞不懂!永遠都搞不懂!! 發表人 - mine 於 2004/12/28 16:59:42

大概像這樣(不過列出目錄那邊還有點 bug):

procedure TfrmMain.btnFtpConnectClick(Sender: TObject);
  procedure ListFile(ADir, ACompleteDir: string);
  var
    i: integer;
    DirCount: integer;
    CompleteDir: string;
    IdFtpListItems: TIdFTPListItems;
  begin
    IdFtp1.ChangeDir(ADir);
    mmFtp.Lines.Add('Change Dir: '   ADir);
    IdFtp1.List(mmFtp.Lines);
    DirCount := IdFtp1.DirectoryListing.Count;
    IdFtpListItems := TIdFTPListItems.Create;
    IdFtpListItems.Assign(IdFtp1.DirectoryListing);
    for i := 0 to DirCount - 1 do
      case IdFtpListItems[i].ItemType of
        ditDirectory:
          begin
            CompleteDir := ADir   '\'   IdFtpListItems[i].FileName;
            ListFile(IdFtpListItems[i].FileName, CompleteDir);
          end;
        ditFile: lbFtp.Items.Add('File: '   ACompleteDir   '\'   IdFtpListItems[i].FileName);
      end;        IdFtpListItems.Free;
    IdFtp1.ChangeDirUp;
  end;
var
  i: integer;
  DirCount: integer;
  CompleteDir: string;
  CurrentDir: string;
  IdFtpListItems: TIdFTPListItems;
begin
  IdFtp1.Connect;
  if IdFtp1.Connected then
  begin
    CompleteDir := '\';
    CurrentDir := '\';
    IdFtp1.List(mmFtp.Lines);
    DirCount := IdFtp1.DirectoryListing.Count;
    IdFtpListItems := TIdFTPListItems.Create;
    IdFtpListItems.Assign(IdFtp1.DirectoryListing);
    for i := 0 to DirCount - 1 do
      case IdFtp1.DirectoryListing[i].ItemType of
        ditDirectory:
          begin
            CompleteDir := CompleteDir   IdFtp1.DirectoryListing[i].FileName;
            ListFile(IdFtp1.DirectoryListing[i].FileName, CompleteDir);
          end;
        ditFile: lbFtp.Items.Add('File: '   CurrentDir   IdFtp1.DirectoryListing[i].FileName);
      end;
    IdFtpListItems.Free;
  end;
  IdFtp1.Disconnect;
  ShowMessage('done!');
end;

-- 棒球是從兩出局開始的.