CloseInternet Method
Class: FTP_SERVICE
Closes any open handles to the Internet. Does not cause an error if there are no currently open handles.
=
Object.CloseInternet
()
Return value Boolean
The return value is .T. always.
Example
LOCAL loFTP
SET PROCEDURE TO ftp.prg ADDITIVE 
loFTP=CREATEOBJECT('ftp_service') 
IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21")
   =loFTP.CloseInternet() 
ENDIF
RELEASE PROCEDURE ftp.prg
See also
Expand/Collapse source code of procedure CloseInternet Source Code
      * Handles have a Hierarchy.  Closing the Top Handle will close all child handles also.
      * (really?)
      IF This.nInet_Handle != 0
         This.CloseFTPConnection()

         InternetCloseHandle(This.nInet_Handle)
         This.nInet_Handle = 0
         This.cCurrentDir = ""
      ENDIF