#INCLUDE "ftp.h" LOCAL loFTP SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') IF loFTP.SetCachingMethod(INTERNET_FLAG_DONT_CACHE) ?loFTP.GetCachingMethod() ENDIF RELEASE PROCEDURE ftp.prg
RETURN This.nCachingType