delphi中的nmftp控件中Download函数只能下载一个文件，没有提供一个下载整个目录（包含子目录）的函数。

我编写了个实现目录下载功能的方法，需要用到该功能的用户可参考一下。

file://目录下载

function tftp.ex_download(remote_dir,local_dir:string):boolean;

var

  i,j,count1:integer;

  att,ss:string;

  current_dir:string;

  temp_dir:string;

begin

  try begin

  NMFTP1.ChangeDir(remote_dir);

  current_dir:=remote_dir;

  temp_dir:=copy(current_dir,2,length(current_dir));

  if not DirectoryExists(local_dir) then CreateDir(local_dir);

  if not directoryexists(local_dir+temp_dir) then createdir(local_dir+temp_dir);

  nmftp1.ParseList:=true;

  NMftp1.list;

  count1:=nmftp1.FTPDirectoryList.name.Count;

  for i:=0 to count1-1 do begin

  file://必须

  NMFTP1.ChangeDir(current_dir);

  nmftp1.list;

  ss:=nmftp1.FTPDirectoryList.name.Strings[i];

  att:=nmftp1.FTPDirectoryList.Attribute.Strings[i];

  if (copy(pchar(att),1,1)<>'d')and(copy(pchar(att),1,1)<>'D') then begin

  if not DirectoryExists(local_dir) then CreateDir(local_dir);

  NMFTP1.Download(current_dir+ss,local_dir+temp_dir+ss);

  end

  else begin

  if not directoryexists(local_dir+temp_dir+ss) then createdir(local_dir+temp_dir+ss);

  file://递归调用

  ex_download(remote_dir+ss+'\',local_dir);

  end;

  end;

  result:=true;

  end

  except

  On E:Exception do begin

  result:=false;

  end;

  end;

end;