(Indy) IdFTP: Prüfen ob ein Verzeichnis existiert

[toms]

Geht das nicht einfacher?

Delphi-Quellcode:

function FTPDirExists(DirName : String; IdFTPComp : TIdFTP) : Boolean;
var
 DirList : TStringList;
begin
 Result := False;
 DirList := TStringList.Create;
 try
  IdFTPComp.List(DirList, DirName, True);
  if DirList.Count > 0 then
    Result := True;
 finally
   DirList.Free;
 end;
end;