こんにちわ。 先日、こちらで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 以上 ++++++++++++++++++++
↧