devxlogo

IsFileInCache – Check whether a file is in the Internet cache

IsFileInCache – Check whether a file is in the Internet cache

Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias _    "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, lpCacheEntryInfo As Any, _    lpdwCacheEntryInfoBufferSize As Long) As Long' Check whether the file identified by the URL passed as parameter' is present in the Internet cache' Example:'    MsgBox "File is saved in cache: " & IsFileInCache' ("http://www.vb2themax.com/vbmaximizer/demo.asp")'    MsgBox "File is saved in cache: " & IsFileInCache' ("http://www.vb2themax.com/mbgallery/intro.asp")Function IsFileInCache(ByVal sURL As String) As Boolean    Const ERROR_INSUFFICIENT_BUFFER = 122    Dim dwEntrySize As Long    If (GetUrlCacheEntryInfo(sURL, ByVal 0&, dwEntrySize)) = 0 Then        If (Err.LastDllError = ERROR_INSUFFICIENT_BUFFER) Then            IsFileInCache = True        End If    End IfEnd Function

See also  Why ChatGPT Is So Important Today
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist