delphi上传下载整个目录文件

上传

IdFTP1.Host := '主机地址';

IdFTP1.Username := '用户名';

IdFTP1.Password := '密码';

if IdFTP1.Connected then IdFTP1.Disconnect;

IdFTP1.Connect();

FindFirst('本地址地址',faAnyFile,FindFile);

Dir_List:=TStringList.Create;

IdFTP1.ChangeDir('远程目录');

IdFTP1.List(Dir_List,'',False); //get all file name of current dir

try

repeat

if (IdFTP1.Size(FindFile.name)<>FindFile.size) or (Dir_List.IndexOf(FindFile.name)=-1) then//judge whether the file exist

IdFTP1.Put('本地地址'+FindFile.name,FindFile.name) ;

until FindNext(FindFile)<>0;

except

end;