使用ftp控制元件下載一個目錄（附一則笑話） (轉)

使用ftp控制元件下載一個目錄（附一則笑話） (轉)[@more@]

 

 

中的nm中只能一個，沒有提供一個下載整個目錄（包含子目錄）的函式。
我編寫了個實現目錄下載功能的方法，需要用到該功能的可參考一下。
錄下載
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
  須
  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);
  歸
  ex_download(remote_dir+ss+'',local_dir);
  end;
  end;
  result:=true;
  end
  except
  On E:Exception do begin
  result:=false;
  end;
  end;
end;

————————————————————————————————————————————————————————————
老大暈倒了

一天，上班時間，我在前“工作”，這時，老大過來了。
老大：小劉啊，上班時間不要看flash動畫。
小劉：我很少看。
老大：很少看？你看你機器目錄名為”阿貴“的目錄，肯定都有三`四十兆了。
小劉：老大，冤枉啊，哪有那麼多……
老大：沒有30兆，至少也該有20兆吧。
小劉：老大你過來看……資料夾……”阿貴“……屬性……，只有……142兆！！！……啊，老大，你怎麼了，快醒醒啊……
————————————————————————————————————————————————————————————

更多的原創技巧文件和關於員的幽默，請訪問我個人主頁