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
