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