如何用idFTP遍历整个目录－－－－下载、删除

核心提示：如何用idFTP遍历整个目录—下载、删除 好久不在网上发表文章了，主要因为水平太臭，如何用idFTP遍历整个目录－－－－下载、删除，恐怕耽误了各位兄弟姐妹的前程，哈哈！废话少说，当 get 完所有文件后返回上一级目录 用List再取得信息，继续循环 } procedure FTP_DownloadDir(var id

如何用idFTP遍历整个目录—下载、删除

 

好久不在网上发表文章了，主要因为水平太臭，恐怕耽误了各位兄弟姐妹的前程，哈哈！

废话少说，下面切入正题。

　　　 这两天做一个项目，其中需要用ftp下载服务器上的整个目录，并且下载完成后，删除整个目录。由于ftp不能穿透子目录，只能在当前目录下操作，所以用一般的方法根本无法达到预期效果。可能我想偷懒吧！于是想从网上搜搜，看有没有现成的东东拿来使用 ：）

结果令我非常失望，不是无法运行就是达不到我的预期效果。其实论坛上也有人问过这样的问题，可一直也没有满意的结果。哎！还得靠自己呀！小日本可没有那么听话，不知道大家听没听说钓鱼岛，去没去参加游行。

　　　 下面的程序是用delphi7.0 + idFTP 实现的。可能还会有bug，不过希望能给需要他的人带来一点点帮助和提示!，程序中只有下载与删除的代码，至于上传的code自己写吧，稍微思考一下就可以实现。

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,IdFTPList,

  IdTCPClient, IdFTP ;

 

type

  TForm1 = class(TForm)

　  Btt_DownLoadDir: TButton;

　  IdFTP1: TIdFTP;

　  Btt_DeleteDir: TButton;

　  Label1: TLabel;

　  lb_num: TLabel; //处理文件个数提示。

　  PRocedure Btt_DownLoadDirClick(Sender: TObject);

　  procedure Btt_DeleteDirClick(Sender: TObject);

  private

　  { Private declarations }

  public

　  { Public declarations }

  end;

var

  Form1: TForm1;

implementation

 

{$R *.dfm}

 

 

 

 

 

 

{ 下载整个目录，并遍历所有子目录

　首先 ChangeDir(Root) 到根目录

  然后创建本地目录 + RemoteDir

  然后用 list 得到所有目录名

  循环判断,进入 RemoteDir 目录内部

  如果是目录继续第归。否则 get 该文件到本地目录，当 get 完所有文件后返回上一级目录

  用List再取得信息，继续循环

 }

 

procedure FTP_DownloadDir(var idFTP : TIdFtp;RemoteDir,LocalDir : string);

label Files ;

var

　i,DirCount : integer;

begin

  if not DirectoryExists(LocalDir + RemoteDir) then

　  ForceDirectories(LocalDir + RemoteDir);

  idFTP.ChangeDir(RemoteDir);

  idFTP.List(nil);

  DirCount := idFTP.DirectoryListing.Count ;

  if DirCount = 0 then

  begin

　  idFTP.ChangeDirUp;

　  idFTP.List(nil);

  end;

  for i := 0 to DirCount - 1 do

  begin

　  if DirCount <> idFTP.DirectoryListing.Count then

　  begin

　　  repeat

　　　  idFTP.ChangeDirUp;

　　　  idFTP.List(nil);

　　  until DirCount = idFTP.DirectoryListing.Count ;

　  end;

　  if idFTP.DirectoryListing[i].ItemType = ditDirectory then

　　  FTP_DownloadDir(idFTP,idFTP.DirectoryListing[i].FileName,LocalDir + RemoteDir + '\')

　  else begin

　　  idFTP.Get(idFTP.DirectoryListing[i].FileName,LocalDir + RemoteDir + '\' +

　　　  idFTP.DirectoryListing[i].FileName,true);

　　  Form1.lb_num.Caption := IntToStr(StrToInt(Form1.lb_num.Caption) + 1);

　　  Form1.lb_num.Update;

　　  if i = DirCount - 1 then

　　  begin

　　　  idFTP.ChangeDirUp;

　　　  idFTP.List(nil);

　　  end;

　  end;

  end;

end;

 

{删除整个ftp目录，包括下面的文件,

 RootDir = 要删除的根目录，一般情况下 RemoteDir 与 RootDir 相等}

procedure FTP_DeleteAllFiles(var idFTP : TIdFtp;RemoteDir,RootDir : string);

label Files;

var

  i,DirCount : integer;

  Temp : string;

begin

  idFTP.ChangeDir(RemoteDir);

  if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Exit;

Files :

  idFTP.List(nil);

  DirCount := idFTP.DirectoryListing.Count ;

  while DirCount = 0 do

  begin

　  Temp := idFTP.RetrieveCurrentDir;

　  idFTP.ChangeDirUp;

　  idFTP.RemoveDir(Temp);

　  idFTP.List(nil);

　  DirCount := idFTP.DirectoryListing.Count ;

　  for i := 0 to DirCount - 1 do

　  if idFTP.DirectoryListing[i].FileName = RootDir then Exit;

  end;

  for i := 0 to DirCount - 1 do

  begin

　  if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Break ;

　  if idFTP.DirectoryListing[i].ItemType = ditDirectory then

　  begin

　　  FTP_DeleteAllFiles(idFTP,idFTP.DirectoryListing[i].FileName,RootDir);

　  end else begin

　　  idFTP.Delete(idFTP.DirectoryListing[i].FileName);

　　  Form1.lb_num.Caption := IntToStr(StrToInt(Form1.lb_num.Caption) + 1);

　　  Form1.lb_num.Update;

　　  goto Files ;

　  end;

  end;

end;

 

procedure TForm1.Btt_DownLoadDirClick(Sender: TObject);

begin

  IdFTP1.Connect(true,-1);

  if IdFTP1.Connected then

  begin

　  IdFTP1.ChangeDir('bigimage');

　  FTP_DownloadDir(IdFTP1,'1002.1002.1002','g:\ftpdir\');

  end;

  IdFTP1.Disconnect ;

end;

 

procedure TForm1.Btt_DeleteDirClick(Sender: TObject);

begin

  IdFTP1.Connect(true,-1);

  if IdFTP1.Connected then

  begin

　  IdFTP1.ChangeDir('bigimage');

　  FTP_DeleteAllFiles(IdFTP1,'1002.1002.1002','1002.1002.1002');

  end;

  IdFTP1.Disconnect ;

end;

 

end.

 

 

运行环境 win2000 advanced server + delphi7.0 + iis6.0