Ordner auf FTP-Server erstellen

[SHENYUKEN]

Hallo

Ich habe das Problem, das ich nicht weiss, wie ich folgendes Problem beheben soll.
Also: Auf dem Server soll geprüft werden ob der Ordner "schule1" vorhanden ist, falls er vorhanden ist soll z.B der neue Ordner "schule2" erstellt werden im die Datei "test.log" gepeichert werden soll. Es dürfen aber keine forhandenen Ordner überschreiben werden.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   idftp1.Host := 'xxxxxx.xxxxx.com';
   idftp1.Username := 'xxxxxxx';
   idftp1.Password := 'xxxxxxx';
   idftp1.Connect(true, 30000);
   idftp1.Port:=21;
  try
    idftp1.MakeDir('schule1');
    idftp1.ChangeDir('schule1');
    idftp1.Put('c:\test.log', ExtractFileName('test.log'));
    idftp1.Disconnect;
 // if DirectoryExists('schule1') then
   except
    Showmessage('Der Server ist momentan nicht erreichbar');
   end;
end;

Bin für jede Hilfe Dankbar