DeleteFlashCache

Download: DeleteFlashCache.zip

説明

Adobe Flash Playerのキャッシュを削除するVBScriptです。

スタートアップやログオン・スクリプト、ログオフ・スクリプトに登録して実行することを想定していますので、実行してもキャッシュを削除するのみで画面表示はありません。

Option Explicit

Dim WShObj, AppDataFolderPath

Set WShObj = WScript.CreateObject("WScript.Shell")
AppDataFolderPath = WShObj.SpecialFolders("appdata")
DeleteFolderItems AppDataFolderPath & "\Macromedia\Flash Player\#SharedObjects"
DeleteFolderItems AppDataFolderPath & "\Macromedia\Flash Player\macromedia.com\support\flashplayer\sys"
Set WShObj = Nothing

Sub DeleteFolderItems(TargetFolderPath)
    Dim FSObj
    Dim TargetFolderObj
    Dim tf

    Set FSObj = CreateObject("Scripting.FileSystemObject")
    Set TargetFolderObj = FSObj.GetFolder(TargetFolderPath)
    For Each tf in TargetFolderObj.Files
        tf.Delete(True)
    Next
    For Each tf in TargetFolderObj.SubFolders
        tf.Delete(True)
    Next
    Set TargetFolderObj = Nothing
    Set FSObj = Nothing
End Sub