2023-03-19に投稿

エクスプローラーのキャッシュを削除

■ExplorerCashDel.vbs

Option Explicit

Const cmd = "Remove-Item C:\Users\xxxx\AppData\Roaming\Microsoft\Windows\Recent\AutomaticDestinations/*-ms"

Dim processName : processName = "エクスプローラーキャッシュ削除処理"

PeriodicExecution cmd,processName

'=========================================================
'機能名 : Sub PeriodicExecution
'引数   : pm_cmd                PowerShellコマンド
'       : pm_processName        処理名
'処理   : PowerShell定期実行用
'=========================================================
Sub PeriodicExecution(pm_cmd ,pm_processName)

    Dim objFS
    Dim x
    Dim strName,strPath

    'ファイルシステムオブジェクト作成
    Set objFS = CreateObject("Scripting.FileSystemObject")

    'ファイル名を取得
    strName = objFS.GetFileName(strPath)

    x = Msgbox ( pm_processName & "を実行しますか?" & strName , vbOkCancel , pm_processName )

    If x = vbOk then

        ' WSHオブジェクトの作成
        Dim objShell
        Set objShell = CreateObject("WScript.Shell")

        ' PowerShellコマンドの実行
        objShell.Run "powershell -ExecutionPolicy RemoteSigned -Command " & pm_cmd, 0

        Msgbox  "完了しました" , , pm_processName

    End If

    ' WSHオブジェクトの破棄
    Set objShell = Nothing

End Sub
ツイッターでシェア
みんなに共有、忘れないようにメモ

speasmen88

Crieitは誰でも投稿できるサービスです。 是非記事の投稿をお願いします。どんな軽い内容でも投稿できます。

また、「こんな記事が読みたいけど見つからない!」という方は是非記事投稿リクエストボードへ!

有料記事を販売できるようになりました!

こじんまりと作業ログやメモ、進捗を書き残しておきたい方はボード機能をご利用ください。
ボードとは?

コメント