第一個是用bat批處理命令,可以正常執行
rem 關閉Windows外殼程式explorertaskkill /f /im explorer.exerem 清理系統表徵圖快取資料庫attrib -h -s -r "%userprofile%\AppData\Local\IconCache.db"del /f "%userprofile%\AppData\Local\IconCache.db"attrib /s /d -h -s -r "%userprofile%\AppData\Local\Microsoft\Windows\Explorer\*"del /f "%userprofile%\AppData\Local\Microsoft\Windows\Explorer\thumbcache_32.db"del /f "%userprofile%\AppData\Local\Microsoft\Windows\Explorer\thumbcache_96.db"del /f "%userprofile%\AppData\Local\Microsoft\Windows\Explorer\thumbcache_102.db"del /f "%userprofile%\AppData\Local\Microsoft\Windows\Explorer\thumbcache_256.db"del /f "%userprofile%\AppData\Local\Microsoft\Windows\Explorer\thumbcache_1024.db"del /f "%userprofile%\AppData\Local\Microsoft\Windows\Explorer\thumbcache_idx.db"del /f "%userprofile%\AppData\Local\Microsoft\Windows\Explorer\thumbcache_sr.db"rem 清理 系統托盤記憶的表徵圖echo y|reg delete "HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify" /v IconStreamsecho y|reg delete "HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify" /v PastIconsStreamrem 重啟Windows外殼程式explorerstart explorer
第二個是vbs檔案,提示錯誤,希望懂得vb的同學給我指正....
On Error Resume NextIf MsgBox("將關閉所有開啟的資源管理員視窗,並重建表徵圖緩衝。" _& vbCrLf & "是否繼續?",vbYesNo+vbQuestion,"詢問")= vbNo ThenWscript.QuitEnd IfSet FSO = CreateObject("Scripting.FileSystemObject")FSO.DeleteFile(FSO.GetSpecialFolder(0) & "\shelliconcache")Set FSO = NothingSet Pros = GetObject("winmgmts:\\.\root\cimv2").ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'")For Each Pro in ProsPro.TerminateNextSet Pros = NothingMsgBox "操作已完成。",vbInformation,"提示"
提示的錯誤是
現在知道出現上面的錯誤的原因了,謝謝tea_pig!
把程式的第二句話修改為下面就可以了,多了個底線!
If MsgBox("將關閉所有開啟的資源管理員視窗,並重建表徵圖緩衝。" & vbCrLf & "是否繼續?",vbYesNo+vbQuestion,"詢問")= vbNo Then