Check if a File is in Internet Explorers Cache

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

Description

This function can be called to determine if a file is in Internet Explorers cache.

CodePrivate Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias _

"GetUrlCacheEntryInfoA" _

(ByVal sUrlName As String, _

lpCacheEntryInfo As Any, _

lpdwCacheEntryInfoBufferSize As Long) As Long

Function Cached(ByVal strURL As String) As Boolean

Dim buffer As Long

If (GetUrlCacheEntryInfo(strURL, ByVal 0&, buffer)) = 0 Then

If (Err.LastDllError = 122) Then Cached = True

End Function

Example Usage

Just call the function and give it the url of the file you want to check:

MsgBox Cached("http://msdn.microsoft.com/")

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航