GetExtendedError Method
Class: FTP_SERVICE
Object.GetExtendedError
()



See also
: .
Expand/Collapse source code of procedure GetExtendedError Source Code
      LOCAL lcMessage, lnError, lcBuffer
      This.nResult_Code = GetLastError()

      lnError = 0
      lcBuffer = SPACE(MAX_PATH)

      =InternetGetLastResponseInfo(lnError, @lcBuffer, MAX_PATH)

      This.nExtended_Result = lnError
      This.cExtended_Message = LEFT(lcBuffer, AT(cNULL, lcBuffer) - 1)
      RETURN