Ich habe eine kleine Procedure geschrieben, die prüft, ob eine Directory über
Indy-
FTP vorhanden ist, falls nicht, wird die Directory angelegt.
Im
Indy-
FTP muss Passive auf True gesetzt sein.
Function Make_FTP_Dir(Path:String):BOOLEAN;
VAR
I:INTEGER;
Begin
IdFTP1.List;
for i :=0 to IdFTP1.DirectoryListing.Count-1 do begin
IF IdFTP1.DirectoryListing[i].FileName = Path Then Begin
Result:=True;
EXIT;
End;
end;
IdFTP1.MakeDir(Path);
Result:=FALSE;
End;