參考http://delphi.ktop.com.tw/topic.php?topic_id=52402改的 目前沒有實際下載整個目錄不過下載檔案確定是沒問題 有問題的話自行修改依下就可以了    bool __fastcall TMain_Form::BZ_Download(AnsiString RemoteDir,AnsiString LocalDir) {    AnsiString CurrentDir,tmpDir,FileName,FileAtt;      int FileCount;      NMFTP1->List();      NMFTP1->ChangeDir(RemoteDir);      NMFTP1->List();      NMFTP1->ParseList = true;      CurrentDir = RemoteDir;      tmpDir = CurrentDir.SubString(1,CurrentDir.Length());      if( DirectoryExists(LocalDir) == false )       {    if( ForceDirectories(LocalDir) == false )             {    Memo2->Lines->Add("Create Directory Failure!");                  return false;             };       }      if( DirectoryExists(LocalDir+"\\"+tmpDir) == false )       {    if( ForceDirectories(LocalDir+"\\"+tmpDir) == false )             {    Memo2->Lines->Add("Create Directory Failure!");                  return false;             }       }      FileCount = NMFTP1->FTPDirectoryList->name->Count;      for( int i=0;iFTPDirectoryList->name->Strings[i]; FileAtt = NMFTP1->FTPDirectoryList->Attribute->Strings[i]; if( ( (FileAtt.SubString(1,1)).AnsiCompare("d") != 0 )||( (FileAtt.SubString(1,1)).AnsiCompare("D") != 0 )) { if( DirectoryExists(LocalDir) == false ) { if( ForceDirectories(LocalDir) == false ) { Memo2->Lines->Add("Create Directory Failure!"); return false; } } if( GetFileAttributes(FileName) == FILE_ATTRIBUTE_READONLY ) ) { SetFileAttributes(FileName, FILE_ATTRIBUTE_NORMAL); } NMFTP1->Download(FileName,LocalDir "\\" tmpDir "\\" FileName); } else { if( DirectoryExists(LocalDir "\\" tmpDir "\\" FileName) == false ) { if( ForceDirectories(LocalDir "\\" tmpDir "\\" FileName) == false ) { Memo2->Lines->Add("Create Directory Failure!"); return false; }; } BZ_Download(RemoteDir "/" FileName "/",LocalDir); } } return true; }