Option Explicit
  Private Const NO_ERROR = 0
  Private Const INTERNET_OPTION_END_BROWSER_SESSION = 42
  Private Const CSIDL_COOKIES = &H21&
  Private Type SHITEMID
          cb As Long
          abID As Byte
  End Type
  Private Type ITEMIDLIST
          mkid As SHITEMID
  End Type
  Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
  Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
  Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
  Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, ByRef lpBuffer As Any, ByVal dwBufferLength As Long) As Long
    
    
  Private Function GetSpecialfolder(CSIDL As Long) As String
          Dim r As Long
          Dim IDL As ITEMIDLIST
          'Get   the   special   folder
          Dim path As String
          r = SHGetSpecialFolderLocation(100, CSIDL, IDL)
          If r = NO_ERROR Then
                  'Create   a   buffer
                  path = Space$(512)
                  'Get   the   path   from   the   IDList
                  r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal path$)
                  'Remove   the   unnecessary   chr$(0)'s
                  GetSpecialfolder = Left$(path, InStr(path, Chr$(0)) - 1)
                  Exit Function
          End If
          GetSpecialfolder = ""
  End Function
    
  Function KillCookies()
          Dim CookiesPath As String
          CookiesPath = GetSpecialfolder(CSIDL_COOKIES)       '获取COOKIES文件夹路径
          '为了防止在ie打开时，内存中还有部分COOKIES存在，加了下面这句
          Call InternetSetOption(0, INTERNET_OPTION_END_BROWSER_SESSION, ByVal 0&, 0)
          Kill CookiesPath + "\*.txt"         '全部删除，如果需要删除某一个COOKIES的话，需要用dir或fso枚举出所有文件，然后用kill语句删除
  End Function