怎么找到緩存文件在哪 教你快速找到電腦緩存文件的方法

怎么清理缓存文件?

在IE缓存目录中积累着很多的文件，这些文件虽然可以提高浏览旧网页的速度，但是对磁盘空间的占用也与时俱进。对于爱“干净”的人，总觉得有点得不偿失。下面就贴出清理缓存的源码，清理缓存的方法有很多，这里介绍的是通过接口实现的例子。新建工程，引用b(可以从建一个类，名称：粘贴如下源码：="{-04DA-11d1-A...全部

在IE缓存目录中积累着很多的文件，这些文件虽然可以提高浏览旧网页的速度，但是对磁盘空间的占用也与时俱进。对于爱“干净”的人，总觉得有点得不偿失。下面就贴出清理缓存的源码，清理缓存的方法有很多，这里介绍的是通过接口实现的例子。

新建工程，引用b(可以从建一个类，名称：粘贴如下源码：="{-04DA-11d1-A004-}"PrivateConstCLSID_TemporaryCleaner="{9B0EFD60-F7B0-11D0-BAEF-00C04FC308C9}"'临时文件PrivateConstCLSID_OffLineCleaner="{8E6E6079-0CB7-11D2-8F10-0000F87ABD16}"'脱机文件PrivateTemporaryFilesAsIEmptyVolumeCache'临时文件PrivateOffLinePagesAsIEmptyVolumeCache'脱机文件PrivateConstHKEY_OFFLINE_PAGES="Software\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\OfflinePagesFiles"PrivateConstHKEY_TEMPORARY="Software\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\InternetCacheFiles"PrivateConstHKEY_LOCAL_MACHINE=&H80000002PrivateDeclareFunctionRegOpenKeyExLib"advapi32。

dll"Alias"RegOpenKeyExA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValulOptionsAsLong,ByValsamDesiredAsLong,phkResultAsLong)AsLongPrivateDeclareFunctionRegCloseKeyLib"advapi32"(ByValhKeyAsLong)AsLongPrivatemSizeAsCurrencyPropertyGetSpaceSize()AsLongSpaceSize=mSizeEndProperty'根据GUID实例化清理器对象PrivateFunctionCreateCleaner(ByValGUIDAsString)AsIEmptyVolumeCacheDimCLSIDAsUUID,IIDAsUUIDDimUnknownAsIUnknownCLSIDFromStringGUID,CLSIDCLSIDFromStringIID_IEmptyVolumeCache&vbNullChar,IIDCoCreateInstanceCLSID,Unknown,CLSCTX_INPROC_SERVER,IID,CreateCleanerEndFunctionPublicSubStarClear()OffLinePages。

PurgemSize/10000,MeTemporaryFiles。PurgemSize/10000,MeEndSub'初始化清理器对象PrivateSubInitializeCleaners()DimNameAsLong,DescAsLong,FlagsAsLongDimhKeyAsLong,DriveAsString,PIDLAsLong'获得临时文件所在驱动器Drive=Space$(260)PIDL=SHGetSpecialFolderLocation(0,CSIDL_INTERNET_CACHE)SHGetPathFromIDListPIDL,DriveDrive=Left$(Drive,3)CoTaskMemFreePIDL'脱机IfRegOpenKeyEx(HKEY_LOCAL_MACHINE,HKEY_OFFLINE_PAGES,0&,KEY_ALL_ACCESS,hKey)=0ThenOffLinePages。

InitializehKey,Drive,Name,Desc,FlagsCoTaskMemFreeNameCoTaskMemFreeDescRegCloseKeyhKeyEndIf'临时IfRegOpenKeyEx(HKEY_LOCAL_MACHINE,HKEY_TEMPORARY,0&,KEY_ALL_ACCESS,hKey)=0ThenTemporaryFiles。

InitializehKey,Drive,Name,Desc,FlagsCoTaskMemFreeNameCoTaskMemFreeDescRegCloseKeyhKeyEndIfEndSubPrivateSubClass_Initialize()DimSizeAsCurrencySetOffLinePages=CreateCleaner(CLSID_OffLineCleaner)SetTemporaryFiles=CreateCleaner(CLSID_TemporaryCleaner)CallInitializeCleanersTemporaryFiles。

GetSpaceUsedSize,MemSize=Size*10000OffLinePages。GetSpaceUsedSize,MemSize=mSize+(Size*10000)EndSubPrivateSubClass_Terminate()DimFlagsAsLongOffLinePages。

DeactivateFlagsTemporaryFiles。DeactivateFlagsSetOffLinePages=NothingSetTemporaryFiles=NothingEndSubPrivateSubIEmptyVolumeCacheCallBack_PurgeProgress(ByValdwlSpaceFreedAsCurrency,ByValdwlSpaceToFreeAsCurrency,ByValdwFlagsAsolelib。

IEmptyVolumeCacheCallBackFlags,ByValpcwszStatusAsLong)'EndSubPrivateSubIEmptyVolumeCacheCallBack_ScanProgress(ByValdwlSpaceUsedAsCurrency,ByValdwFlagsAsolelib。

IEmptyVolumeCacheCallBackFlags,ByValpcwszStatusAsLong)'EndSub使用方法：PrivateSubCommand1_Click()DimIEClearAsNewIETempClearMsgBox"IE缓存占用空间："&IEClear。

SpaceSize&"字节。"IEClear。StarClearSetIEClear=NothingEndSub。收起