Class: | FTP_SERVICE |
Type | Boolean |
Direction | Input |
LOCAL loFTP,lcPom #INCLUDE "ftp.h" SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21") IF !loFTP.ChangeFTPDirectory("_!_"+CHR(1)+CHR(9)) loFTP.GetErrorCode(.T.) ENDIF =loFTP.CloseInternet() ENDIF RELEASE PROCEDURE ftp.prg
LPARAMETERS INP llShowMessage LOCAL lcMessage IF llShowMessage = .T. * Build Error Message Here lcMessage = "Error (" + ALLTRIM(STR(This.nResult_Code)) + ") - " + ; This.GetErrorText(This.nResult_Code) IF !EMPTY(This.cExtended_Message) lcMessage = lcMessage + CHR(13) + CHR(13) + "Extended Error Info - (" + ; ALLTRIM(STR(This.nExtended_Result)) + ; ") - " + This.cExtended_Message ENDIF =MESSAGEBOX(lcMessage, 48, "FTP Error Message") ENDIF RETURN This.nResult_Code