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

原创 2004年04月07日 14:33:00

如何用idFTP遍历整个目录下载、删除<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

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

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

       这两天做一个项目,其中需要用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

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

如何用idFTP遍历整个目录—下载、删除 好久不在网上发表文章了,主要因为水平太臭,恐怕耽误了各位兄弟姐妹的前程,哈哈!废话少说,下面切入正题。       这两天做一个项目,其中需要用ftp下载服务...
  • Jason009
  • Jason009
  • 2006年09月20日 22:09
  • 877

IDFTP删除整个目录

procedure FTP_DeleteAllFiles(var idFTP: TIdFtp; RemoteDir, RootDir: string);type TFtpDir =record ...
  • csshow
  • csshow
  • 2010年10月15日 00:23
  • 390

如何用Python实现目录遍历

1. 基本实现    [root@localhost ~]# cat dirfile.py import os path='/tmp' for dirpath,dirnames,filen...
  • slowtech
  • slowtech
  • 2016年03月10日 15:13
  • 119

IDFTP

1.控件的说明  使用Indy 9中的TIdFtp控件可以实现通过FTP方式进行文件的上传与下载。  2.控件的具体使用  (1)控件属性设置  默认属性即可,与服务器连接直接相关的属性如主机名与用户...
  • hzqghost
  • hzqghost
  • 2007年04月05日 23:37
  • 1845

wget 下载整个网站,或者特定目录

转载自:http://www.cnblogs.com/lidp/archive/2010/03/02/1696447.html 需要下载某个目录下面的所有文件。命令如下 wget -c -r ...
  • memray
  • memray
  • 2013年09月16日 23:44
  • 41438

如何遍历整个目录

#include <windows.h>#include <shlobj.h>//浏览目录.void BrowseFolder( void ){ TCHAR path[MAX_...
  • taocsdn
  • taocsdn
  • 2004年07月16日 19:43
  • 1154

Java Iterator遍历List集合

对Java中迭代器的一个学习总结。原作来自:https://my.oschina.net/muggles1080/blog/edit/811578...
  • spilledyear
  • spilledyear
  • 2016年12月25日 16:01
  • 309

IOS KeyChain理解及代码事例

文中利用KeyChain保存用户名和密码,用户名放在属性中,密码放在密码项中;其中对KeyChain项的增删改查,我个人觉得是有问题的,为了方面自己代码上的使用,也帮助阅读该文的其他读者更好的理解,我...
  • qianlima210210
  • qianlima210210
  • 2015年08月31日 16:24
  • 816

如何用wget下载整个网站

如何下载整个网站 wget --mirror -p --html-extension --convert-links -e robots=off -P . http://url-to-site...
  • redmoon729
  • redmoon729
  • 2015年01月07日 14:27
  • 2175

遍历整个目录

硬件/系统遍历整个目录 #include ...
  • Jason009
  • Jason009
  • 2006年09月28日 10:23
  • 908
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何用idFTP遍历整个目录----下载、删除
举报原因:
原因补充:

(最多只允许输入30个字)