Binaryworld - IsFileInCache - Check whether a file is in the Internet cache ... [ VB -> Internet ]

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 If
End Function