begin
FTP_DeleteAllFiles(idFTP,idFTP.DirectoryListing[i].FileName,RootDir);
end else begin
idFTP.Delete(idFTP.DirectoryListing[i].FileName);
Form1.lb_num.Caption := IntToStr(StrToInt(Form1.lb_num.Caption) + 1);
Form1.lb_num.Update;
goto Files ;
end;
end;
end;
procedure TForm1.Btt_DownLoadDirClick(Sender: TObject);
begin
IdFTP1.Connect(true,-1);
if IdFTP1.Connected then
begin
IdFTP1.ChangeDir('bigimage');
FTP_DownloadDir(IdFTP1,'1002.1002.1002','g:ftpdir');
end;
IdFTP1.Disconnect ;
end;
procedure TForm1.Btt_DeleteDirClick(Sender: TObject);
begin
IdFTP1.Connect(true,-1);
if IdFTP1.Connected then
begin
IdFTP1.ChangeDir('bigimage');
FTP_DeleteAllFiles(IdFTP1,'1002.1002.1002','1002.1002.1002');
end;
IdFTP1.Disconnect ;
end;
end.
运行环境 win2000 advanced server + delphi7.0 + iis6.0
 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
- GOOGLE广告
阅读排行
- 相关文章
-
没有相关文章
|
