Auch aus dem Englischen-Forum:
Code: Alles auswählen
;I also need the CHMOD command to change read/write authorizations and made that:
Code:
Procedure FTP_CHMOD(Ftp.l, Command.s, FileOrFolder.s, mod.s, Log_Gadget)
If Ftp
; Online with the server
If Log_Gadget
AddGadgetItem(Log_Gadget,-1,FormatDate("%hh:%ii:%ss", Date()) + Chr(10) + "<----" + Chr(10) + Command + " " + FileOrFolder)
EndIf
;
SendNetworkString2(Ftp,Command+" " + mod + " " + FileOrFolder + #LFCR)
In = Wait(Ftp, #SmallTimeOut)
If In = "TimeOut"
FTP_Last_Message = "Timed out"
ProcedureReturn #FTP_TimeOut
ElseIf In
FTP_Last_Message = In
If Left(In,3) = "200" ; CHMOD ACCEPTED
If Log_Gadget
AddGadgetItem(Log_Gadget,-1,FormatDate("%hh:%ii:%ss", Date()) + Chr(10) + "---->" + Chr(10) + In)
EndIf
In.s = ""
ProcedureReturn #FTP_OK
Else
ProcedureReturn #FTP_ERROR
EndIf
Else
ProcedureReturn #FTP_ERROR
EndIf
EndIf
EndProcedure
;
Procedure Int_FTP_CHMOD(Ftp.l, FileOrFolder.s, mod.s, Log_Gadget)
Result = FTP_CHMOD(Ftp.l, "CHMOD", FileOrFolder.s, mod.s, Log_Gadget)
If Result <> #FTP_OK
Result = FTP_CHMOD(Ftp.l, "SITE CHMOD", FileOrFolder.s, mod.s, Log_Gadget)
EndIf
ProcedureReturn Result
EndProcedure
Hier ist der Genaue Link:
http://www.purebasic.fr/english/viewtop ... d&start=30