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

[1] [2] [3] [4] 下一页

GOOGLE广告

相关文章

没有相关文章