AW: Cookies löschen
22.08.2008 15:40:21
Nepumuk
Hallo Peter,
ich lese da als Betreff Cookies löschen. Die Cookies in den Temporären Internetdateien sind die, welche zuerst auf die Platte geschrieben werden. Hast du keine Sperre drin, werden diese in den Cookie-Ordner verschoben, Die in den Temps sind dann unerheblich.
Aber wenn du meinst, dass das Excel besser kann als die Internetoptionen:
' **********************************************************************
' Modul: Modul4 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" ( _
ByVal hwndOwner As Long, _
ByVal nFolder As Long, _
ByRef 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 Type ITEMID
cb As Long
abID As Byte
End Type
Private Type ITEMIDLIST
mkid As ITEMID
End Type
Private Const CSIDL_INTERNET_CACHE As Long = &H20
Private Const NOERROR As Long = 0&
Public Sub prcClear_Temporary_InternetFiles()
Dim objFSO As Object, objFile As Object
Dim objFolder0 As Object, objFolder1 As Object, objFolder2 As Object
Dim strPath As String
strPath = fncGetPath(CSIDL_INTERNET_CACHE)
If strPath <> "" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set objFolder0 = objFSO.GetFolder(strPath)
For Each objFolder1 In objFolder0.SubFolders
For Each objFolder2 In objFolder1.SubFolders
objFolder2.Delete
Next
Next
For Each objFile In objFolder0.Files
objFile.Delete
Next
Set objFSO = Nothing
Else
MsgBox "Pfad für Temporäre Internetdateien nicht gefunden", vbCritical, "Fehler"
End If
End Sub
Private Function fncGetPath(Num As Long) As String
Dim lngResult As Long
Dim strBuffer As String
Dim udtIDl As ITEMIDLIST
lngResult = SHGetSpecialFolderLocation(0&, Num, udtIDl)
If lngResult = NOERROR Then
strBuffer = Space$(512)
lngResult = SHGetPathFromIDList(ByVal udtIDl.mkid.cb, ByVal strBuffer)
If lngResult Then fncGetPath = _
Left$(strBuffer & vbNullChar, InStr(strBuffer, vbNullChar) - 1)
End If
End Function
Gruß
Nepumuk