本帖最后由 pcl_test 于 2016-1-1 18:03 编辑
本人已经搜索过,“缓存”,并没有。(实在是害怕某人又说我抄作什么)。
百度搜索的代码据说很旧,win98时代的:- On Error Resume Next
- If MsgBox("将关闭所有打开的资源管理器窗口,并重建图标缓存。" & vbCrLf & "是否继续?",vbYesNo+vbQuestion,"询问")= vbNo Then
- Wscript.Quit
- End If
- Set FSO = CreateObject("Scripting.FileSystemObject")
- FSO.DeleteFile(FSO.GetSpecialFolder(0) & "\shelliconcache")
- Set FSO = Nothing
- Set Pros = GetObject("winmgmts:\\.\root\cimv2").ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'")
- For Each Pro in Pros
- Pro.Terminate
- Next
- Set Pros = Nothing
- MsgBox "操作已完成。",vbInformation,"提示"
复制代码 去除On Error Resume Next后,果然说找不到目录。 |