Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Jun 23, 2001

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 If
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date