我本地用ftp下载服务器上的几个文件地址，保存整个文件夹和文件到本地D盘 谁能帮忙写下函数 谢谢(50分)

服务器上有几个文件地址
'ftp://192.168.1.99/zzz/12/13/b.txt'
'ftp://192.168.1.99/zzz/A1/A2/a.txt'
我本地用ftp下载保存整个文件夹和文件到本地D盘 要怎么做 需要idhttp 还需要什么不？ 知道的高手帮忙写个函数 谢谢

转帖一个 nmftp控件的例子，其实就是递归使用

procedure DownLoadDirectory(Dir:string;FtpSvr: TNMFTP): integer;
var
AttList : TStrings;
NameList : TStrings;
count : integer;
i : integer;
Att : string;
begin
AttList := TStringList.Create;
NameList:= TStringList.Create;
FtpSvr.List;
AttList.Assign( FtpSvr.FTPDirectoryList.Attribute );
NameList.Assign(FtpSvr.FTPDirectoryList.name );
count := AttList.Count;
Chdir(dir);
if count = 0 then exit;

for i:=0 to count-1 do
begin
Att := AttList.Strings;
if( Att[1] = '-' ) then
begin
try
FtpSvr.Download( nameList.Stringsi],dir+ '/'+NameList.Strings );
except end;
end;
if( Att[1] = 'd' ) then
begin
mkdir(NameList.strings);
try
FtpSvr.ChangeDir(NameList.strings);
except end;
DownLoadDirectory( dir+'/'+NameList.Strings, FtpSvr );
chdir(dir);
try
FtpSvr.ChangeDir('..');
except end;
end;
end;
end;

就比如服务器有000 这个文件夹 000里有111这个文件夹 111里有a.txt,b.txt,c.jpg
这3个文件，我现在在程序里得到了000 和 111 以及3个文件名 用什么代码可以实行FTP直接下载 知道的高手帮帮忙 小弟急着解决，再此多说声谢谢！

我的笔记.你进去看看.好多种方法的..

http://www.delphibbs.com/keylife/iblog_show.asp?xid=26739

谢谢 不过Delphizhou 怎么看不到你的经验啊 只是个列表而已

>>不过Delphizhou 怎么看不到你的经验啊 只是个列表而已
典型的看帖不认真类型 无语了