如何删除临时文件夹中的内容

  Cache条目的浏览与选择删除  
  　　程序能对计算机中Cache的全部条目进行浏览及选择性删除（也可一步到位全部删除）。  
  　　请先在窗体放置一个列表框（用于显示Cache条目），再分别放置三个命令按钮（分别用于“浏览”、“删除所选”和“删除全部”），Name属性均取默认。再将如下代码粘贴到窗体代码窗口。    
  Option   Explicit  
  Private   Sub   Command1_Click()  
  GetCacheURLList  
  Label1.Caption   =   "共有"   &   List1.ListCount   &   "   个文件"  
  End   Sub  
    
  Private   Sub   Command2_Click()  
  Dim   cachefile   As   String  
  cachefile   =   List1.List(List1.ListIndex)  
  Call   DeleteUrlCacheEntry(cachefile)  
  GetCacheURLList   '删除后重新列表  
  End   Sub  
    
  Private   Sub   Command3_Click()  
  Dim   cachefile   As   String  
  Dim   i   As   Long  
  For   i   =   0   To   List1.ListCount   -   1  
  cachefile   =   List1.List(i)  
  If   InStr(cachefile,   "Cookie")   =   0   Then'如果是Cookie则不删除  
  Call   DeleteUrlCacheEntry(cachefile)  
  End   If  
  Next   i  
  GetCacheURLList'删除后重新列表  
  End   Sub  
    
  Private   Sub   List1_Click()  
  Command2.Enabled   =   InStr(List1.List(List1.ListIndex),   "Cookie")   =   0  
  End   Sub  
    
  Public   Sub   GetCacheURLList()  
  Dim   ICEI   As   INTERNET_CACHE_ENTRY_INFO  
  Dim   hFile   As   Long  
  Dim   cachefile   As   String  
  Dim   posUrl   As   Long  
  Dim   posEnd   As   Long  
  Dim   dwBuffer   As   Long  
  Dim   pntrICE   As   Long  
  List1.Clear   'Like   other   APIs,   calling   FindFirstUrlCacheEntry   or  
  dwBuffer   =   0  
  hFile   =   FindFirstUrlCacheEntry(0&,   ByVal   0,   dwBuffer)  
  If   (hFile   =   ERROR_CACHE_FIND_FAIL)   And   _  
  (Err.LastDllError   =   ERROR_INSUFFICIENT_BUFFER)   Then  
  pntrICE   =   LocalAlloc(LMEM_FIXED,   dwBuffer)  
  If   pntrICE   Then  
  CopyMemory   ByVal   pntrICE,   dwBuffer,   4  
  hFile   =   FindFirstUrlCacheEntry(vbNullString,   ByVal   pntrICE,   dwBuffer)  
  If   hFile   <>   ERROR_CACHE_FIND_FAIL   Then  
  Do  
  CopyMemory   ICEI,   ByVal   pntrICE,   Len(ICEI)  
  If   (ICEI.CacheEntryType   And   _  
  NORMAL_CACHE_ENTRY)   =   NORMAL_CACHE_ENTRY   Then  
  cachefile   =   GetStrFromPtrA(ICEI.lpszSourceUrlName)  
  List1.AddItem   cachefile  
  End   If  
  Call   LocalFree(pntrICE)  
  dwBuffer   =   0  
  Call   FindNextUrlCacheEntry(hFile,   ByVal   0,   dwBuffer)  
  pntrICE   =   LocalAlloc(LMEM_FIXED,   dwBuffer)  
  CopyMemory   ByVal   pntrICE,   dwBuffer,   4  
  Loop   While   FindNextUrlCacheEntry(hFile,   ByVal   pntrICE,   dwBuffer)  
  End   If   'hFile  
  End   If   'pntrICE  
  End   If   'hFile  
  Call   LocalFree(pntrICE)  
  Call   FindCloseUrlCache(hFile)  
  End   Sub  
    
  Public   Function   GetStrFromPtrA(ByVal   lpszA   As   Long)   As   String  
  GetStrFromPtrA   =   String$(lstrlenA(ByVal   lpszA),   0)  
  Call   lstrcpyA(ByVal   GetStrFromPtrA,   ByVal   lpszA)  
  End   Function    
      
  　　下面是程序用到的模块文件，请新添加一个标准模块，粘贴如下代码于内。    
  Option   Explicit  
  Public   Declare   Function   FindFirstUrlCacheEntry   Lib   "Wininet.dll"   _  
  Alias   "FindFirstUrlCacheEntryA"   _  
  (ByVal   lpszUrlSearchPattern   As   String,   _  
  lpFirstCacheEntryInfo   As   Any,   _  
  lpdwFirstCacheEntryInfoBufferSize   As   Long)   As   Long  
  Public   Declare   Function   FindNextUrlCacheEntry   Lib   "Wininet.dll"   _  
  Alias   "FindNextUrlCacheEntryA"   _  
  (ByVal   hEnumHandle   As   Long,   _  
  lpNextCacheEntryInfo   As   Any,   _  
  lpdwNextCacheEntryInfoBufferSize   As   Long)   As   Long  
  Public   Declare   Function   FindCloseUrlCache   Lib   "Wininet.dll"   _  
  (ByVal   hEnumHandle   As   Long)   As   Long  
  Public   Declare   Function   DeleteUrlCacheEntry   Lib   "Wininet.dll"   _  
  Alias   "DeleteUrlCacheEntryA"   _  
  (ByVal   lpszUrlName   As   String)   As   Long  
  Public   Declare   Sub   CopyMemory   Lib   "kernel32"   _  
  Alias   "RtlMoveMemory"   _  
  (pDest   As   Any,   _  
  pSource   As   Any,   _  
  ByVal   dwLength   As   Long)  
  Public   Declare   Function   lstrcpyA   Lib   "kernel32"   _  
  (ByVal   RetVal   As   String,   ByVal   Ptr   As   Long)   As   Long  
  Public   Declare   Function   lstrlenA   Lib   "kernel32"   _  
  (ByVal   Ptr   As   Any)   As   Long  
  Public   Declare   Function   LocalAlloc   Lib   "kernel32"   _  
  (ByVal   uFlags   As   Long,   _  
  ByVal   uBytes   As   Long)   As   Long  
  Public   Declare   Function   LocalFree   Lib   "kernel32"   _  
  (ByVal   hMem   As   Long)   As   Long  
    
  Public   Const   sFileCount   As   String   =   "###,###,###,##0   f\i\l\e\s\   \f\o\u\n\d"  
  Public   Const   ERROR_CACHE_FIND_FAIL   As   Long   =   0  
  Public   Const   ERROR_CACHE_FIND_SUCCESS   As   Long   =   1  
  Public   Const   ERROR_FILE_NOT_FOUND   As   Long   =   2  
  Public   Const   ERROR_ACCESS_DENIED   As   Long   =   5  
  Public   Const   ERROR_INSUFFICIENT_BUFFER   As   Long   =   122  
  Public   Const   MAX_PATH   As   Long   =   260  
  Public   Const   MAX_CACHE_ENTRY_INFO_SIZE   As   Long   =   4096  
  Public   Const   LMEM_FIXED   As   Long   =   &H0  
  Public   Const   LMEM_ZEROINIT   As   Long   =   &H40  
  Public   Const   LPTR   As   Long   =   (LMEM_FIXED   or   LMEM_ZEROINIT)  
  Public   Const   NORMAL_CACHE_ENTRY   As   Long   =   &H1  
  Public   Const   EDITED_CACHE_ENTRY   As   Long   =   &H8  
  Public   Const   TRACK_OFFLINE_CACHE_ENTRY   As   Long   =   &H10  
  Public   Const   TRACK_ONLINE_CACHE_ENTRY   As   Long   =   &H20  
  Public   Const   STICKY_CACHE_ENTRY   As   Long   =   &H40  
  Public   Const   SPARSE_CACHE_ENTRY   As   Long   =   &H10000  
  Public   Const   COOKIE_CACHE_ENTRY   As   Long   =   &H100000  
  Public   Const   URLHISTORY_CACHE_ENTRY   As   Long   =   &H200000  
  Public   Const   URLCACHE_FIND_DEFAULT_FILTER   As   Long   =   NORMAL_CACHE_ENTRY   or   _  
  COOKIE_CACHE_ENTRY   or   _  
  URLHISTORY_CACHE_ENTRY   or   _  
  TRACK_OFFLINE_CACHE_ENTRY   or   _  
  TRACK_ONLINE_CACHE_ENTRY   or   _  
  STICKY_CACHE_ENTRY  
  Public   Type   FILETIME  
  dwLowDateTime   As   Long  
  dwHighDateTime   As   Long  
  End   Type  
  Public   Type   INTERNET_CACHE_ENTRY_INFO  
  dwStructSize   As   Long  
  lpszSourceUrlName   As   Long  
  lpszLocalFileName   As   Long  
  CacheEntryType   As   Long  
  dwUseCount   As   Long  
  dwHitRate   As   Long  
  dwSizeLow   As   Long  
  dwSizeHigh   As   Long  
  LastModifiedTime   As   FILETIME  
  ExpireTime   As   FILETIME  
  LastAccessTime   As   FILETIME  
  LastSyncTime   As   FILETIME  
  lpHeaderInfo   As   Long  
  dwHeaderInfoSize   As   Long  
  lpszFileExtension   As   Long  
  dwExemptDelta   As   Long  
  End   Type    

收藏到：

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: