【ExcelVBA】IEの一時ファイルと履歴の削除
こんにちわ。
先日、こちらでExcel VBAを用いてCookieを削除する方法をご教授いただきました。
http://okwave.jp/qa/q7951325.html
今回、Cookie以外にインターネット一時ファイルと履歴を削除するため、以下のロジックを組んだのですが、どちらとも削除できませんでした。
WinXPで一時ファイルを削除しようとすると「書き込みできませんでした」とエラーがでます。
また、DeleteUrlCacheEntryでも削除できませんでした。
お忙しいところ大変申し訳ありませんが、インターネット一時ファイルと履歴を削除する方法をご教授いただけないでしょうか？
======================================================================
Private Sub 一時ファイル削除(Byval psKbn)
Dim oFolder As Object
Dim sPath As String
Dim lRs As Long
' 一時ファイル、履歴が保存されているフォルダのパスを取得
sPath = String(260, vbNullChar)
If psKbn = "1" Then
' 一時ファイル
lRs = SHGetFolderPath(0, &H20, 0, 0, sPath)
Else
' 履歴
lRs = SHGetFolderPath(0, &H22, 0, 0, sPath)
End If
If lRs = &H0 Then
sPath = Left(sPath, InStr(1, sPath, Chr(0)) - 1)
Set oFolder = CreateObject("Scripting.FileSystemObject")
Call oFolder.DeleteFile(sPath & "\*.*")
End If
Set oFolder = Nothing
End Sub
======================================================================
以上です。
++++++++++++++++++++
【環境】
OS：WinXP 以上
ブラウザ：IE7 以上
Excel：Excel2007 以上
++++++++++++++++++++
