クッキーの削除をしたい。 (ID:81390)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Private Const CSIDL_COOKIES = &H21
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
                        "SHGetPathFromIDListA" _
                        (ByVal pIDL As Long, _
                         ByVal pszPath As String) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "shell32" _
                        (ByVal hWnd As Long, _
                         ByVal nFolder As Long, _
                         ppidl As Long) As Long
Private Declare Sub CoTaskMemFree Lib "ole32.dll" _
                                (ByVal hMem As Long)

Private Function GetCookiesFold() As String
    Dim lngResult As Long
    Dim lngIDList As Long
    Dim strBuffer As String * MAX_PATH

lngResult = SHGetSpecialFolderLocation(0, _
                                           CSIDL_COOKIES, _
                                           lngIDList)
    If lngResult = 0 Then
        lngResult = SHGetPathFromIDList(lngIDList, strBuffer)
        Call CoTaskMemFree(lngIDList)
    
        GetCookiesFold = left$(strBuffer, InStr(strBuffer, vbNullChar) - 1)
    Else
        GetCookiesFold = vbNullString
    End If
End Function

この関数でクッキーのあるフォルダは取得できるんで、
その後はファイルを列挙して削除。
ってなもんでどうでしょう？

←解決時は質問者本人がここをチェックしてください。

戻る