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

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