This function can be called to determine if a file is in Internet Explorers cache.
Code
Private 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:
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
