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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
