Dir Exists idftp

[ferby]

Okay,

hab mir selbst was gebastelt,
funktioniert so weit

Delphi-Quellcode:

function TMyFtp.dir_exists(dir_name: string):boolean;
var
  list_directories: TStringList;
  i : integer;
begin
  list_directories := TStringList.create;

  result:=false;

  idftp.List(list_directories, '', true);

  for i := list_directories.Count - 1 downto 0 do
  if (list_directories.Strings[i][1]='d') and (list_directories.Strings[i]<>'..') and (list_directories.Strings[i]<>'.') then
  begin
    DivStrList.Str := list_directories.Strings[i];
    if dir_name = DivStrList.Items[DivStrList.Count -1] then
    begin
      result:=true;
      list_directories.Free;
      exit
    end
  end

end;