delphi – IDFTP DirExists和MakeDir

{ Check to see if the '/public_html/XXX/' + iDomain + 'Thumbnails' directory exists }
    try
      IdFTP1.List(nil,'/public_html/XXX/' + iDomain + 'Thumbnails',False);
    except
      on e: EIdReplyRFCError do
      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;
    end;

如果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.它不是一个非常有效的目录管理协议.