vbs模拟按键全局修改资源管理器文件夹按中等图标查看

窄口牛

基于批处理之家的大师原贴
加上vbs模拟按键机械的实现效果

1. Dim Shell
   
2. Set Shell = CreateObject("Shell.Application")
   
3. For Each window In Shell.Windows()
   
4.    If LCase(Right(window.FullName,13)) = "\explorer.exe" Then
   
5.       window.Document.CurrentViewMode = 1
   
6.       window.Document.IconSize = 48
   
7.       window.Document.SortColumns = "prop:-System.DateModified;"
   
8.       Exit For
   
9.    End If
   
10. Next
    
11. Dim WshShell
    
12. set WshShell = CreateObject("wscript.Shell")
    
13. set shell = createobject("wscript.shell")
    
14. WScript.Sleep 200
    
15. WshShell.SendKeys "%{v}"
    
16. WScript.Sleep 200
    
17. WshShell.SendKeys "{m}"
    
18. WScript.Sleep 200
    
19. WshShell.SendKeys "%{t}"
    
20. WScript.Sleep 200
    
21. WshShell.SendKeys "{o}"
    
22. call shell.appactivate("文件夹选项")
    
23. WScript.Sleep 200
    
24. WshShell.SendKeys "^{PGDN}"
    
25. WScript.Sleep 200
    
26. WshShell.SendKeys "%{l}"
    
27. WScript.Sleep 200
    
28. WshShell.SendKeys "{y}"
    
29. WScript.Sleep 200
    
30. WshShell.SendKeys "{ESC}"
    
31. WScript.Sleep 200
    
32. WshShell.SendKeys "%{f4}"

复制代码

期待高手帮忙改进，不用模拟按键方式。

窄口牛

放在任意文件夹下，资源管理器的工具栏正常工作状态下运行即可。

窄口牛

可以自己按照批处理之家原帖的介绍，修改一下。

窄口牛

control folders可以打开文件夹选项，还可以用rundll32打开文件夹选项，可是怎么样才能和从菜单里点开一样，具有路径性质？

窄口牛

不急，只是看到你的作品，以为有解决方案，于是又捡起这个来琢磨。早先就有这个要求，实现不了就搁置了。

窄口牛

看来确实不容易实现。

窄口牛

嗯，不行。

窄口牛

我想达到的是全局，不是某路径下，原帖就能实现某个路径了。