Dir Exists idftp

[CarlHeRe]

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;