如何用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
