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;