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


Unbelievable Razer Blade 17 Discount
On September 24, 2023, it was reported that Razer, a popular brand in the premium gaming laptop industry, is offering an exceptional deal on their