delphi中,idftp怎样查找ftp服务器的是否存在一个文件,delphi – IDFTP DirExists和MakeDir...

如果TIdFTP.List()没有引发异常,则FTP服务器很可能返回450回复代码,这意味着“未采取请求的文件操作”. TIdFTP.InternalGet()(由TIdFTP.List(),TIdFTP.ExtListDir()和TIdFTP.Get()使用)不会将450视为错误条件,因为某些服务器(如爱立信交换机FTP)发送450时列出一个空的但存在的目录的内容,因此没有要发送的列表数据.但是,当请求的目录不存在时,某些服务器会发送450. TIdFTP.List()不会尝试区分.但是,如果TIdFTP.List()未引发异常,则可以查看TIdFTP.LastCmdResult属性以在需要时手动区分.

此外,您不能仅仅依赖于引发异常以表示该文件夹不存在的事实.可能发生任何数量的可能错误.您必须实际查看错误并采取相应措施,例如：

var

Exists: Boolean;

try

IdFTP1.List(nil,False);

Exists := True;

if IdFTP1.LastCmdResult.NumericCode = 450 then

begin

if (IdFTP1.LastCmdResult.Text.Text has a message like 'No such file or directory' or similar) then begin

Exists := False;

end;

// look for other possible text messages...

end;

except

on e: EIdReplyRFCError do

begin

if (e.ErrorCode <> 550) or (e.Message does not have a message like 'Directory not found' or similar) then begin

raise;

end;

Exists := false;

end;

end;

if not Exists then

begin

{ '/public_html/XXX/' + iDomain + 'Thumbnails' directory does not exist }

StatusBar1.SimpleText := 'Making thumbnail directory...';

StatusBar1.Update;

iFolder := '/public_html/XXX/' + iDomain;

{ Change directory to /public_html/XXX/iDomain }

IdFTP1.ChangeDir(iFolder);

iFolder := 'Thumbnails';

{ Create FTP Directory for Thumbnails }

IdFTP1.MakeDir(iFolder);

end;

更好的方法是：

> ChangeDir()直接到目标目录,看它是否失败.如果是这样,则开始向后遍历路径,为每个父目录调用ChangeDir(),直到最终成功,然后使用MakeDir()和ChangeDir()返回路径以根据需要创建缺少的子目录.

>从路径中的第一个目录和ChangeDir()开始,然后List()它以查看是否存在下一个子文件夹,MakeDir()是否需要,然后是ChangeDir(),然后根据需要重复直到到达目标目录.

欢迎使用FTP.它不是一个非常有效的目录管理协议.