ＶＢＡでキャッシュを削除するには
http://okwave.jp/qa/q7833029.html
でも質問したものなのですが、ＶＢＡでキャッシュを削除するしたいのですがうまくいきません。
C:\Users\○○\AppData\Local\Microsoft\Windows\Temporary Internet Files
のフォルダを見ると現在4656個ですが、
/////////////////////////////////////////////////////////////////
Option Explicit
Sub Sample1()
On Error Resume Next
Dim Shell As Object, CashFolder As Object, FSO As Object
Dim Folder As Object, File As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("Shell.Application")
Set CashFolder = Shell.Namespace(&H20)
''キャッシュフォルダのパスを取得する
For Each Folder In FSO.GetFolder(CashFolder.Self.Path & "\Content.IE5").SubFolders
For Each File In Folder.Files
''キャッシュフォルダ内のファイルを削除する
FSO.DeleteFile File
Next File
Next Folder
Set CashFolder = Nothing
Set Shell = Nothing
Set FSO = Nothing
End Sub
/////////////////////////////////////////////////////////////////
を実行した後に、Temporary Internet Filesのフォルダを見ても、1個も削除されてません。
On Error Resume Nextをつけないと
4656個全てが、書き込みできません。(Error 70)になってしまうようです。
どうすればいいのでしょうか？
ご教授よろしくお願いします。
お礼
ご回答ありがとうございますm(_ _)m >>このフォルダの中身が消失する典型的な現象は、使用中の不正なシャットダウンです。 初めて知りました。 確かに…PCのリセットボタンを押した後に消えた記憶があります。 容量もあまり多く設定するのも良くないのですね。大変勉強になります。 情報不足な質問に対し、この様な大変分かり易く詳しい回等を頂き、本当に感謝いたしますm(_ _)m ありがとうございました。