批处理如何删除多个文件夹进程？

lion991128

请问下高手们 我初学 想问下有什么方法可以让批处理关闭文件夹吗？就是我打开多个文件夹20多个 如何用批处理一键关闭文件夹 而不关闭WORD之类的文件。。。。谢谢指导

apang

没有文件夹进程，只有explorer.exe进程
kill explorer.exe 然后 start explorer.exe 文件夹就关闭了

DAIC

http://bbs.bathome.net/thread-8697-1-1.html

CrLf

sendkey 太不稳定，建议用 Shell.Application，保存为 vbs：

1. Set Shell = WScript.CreateObject("Shell.Application")
   
2. 
   
3. For Each W In Shell.Windows
   
4.         If Instr(LCase(W.FullName),"\explorer.exe") Then W.Quit
   
5. Next

复制代码

甚至可以关闭指定路径的文件夹窗口

CrLf

回复 2# apang


    上次看到兄台也有用 Shell.Application 操作窗口的先例：http://bbs.bathome.net/viewthread.php?tid=31102
    但用 tli 遍历其方法和属性无果，不知道这些可以去哪查？
-------------------------------------------------------------------
    后来突然想到可以用 powershell 查...看了下有这些方法和属性：

1. ClientToWindow
   
2. ExecWB
   
3. GetProperty
   
4. GoBack
   
5. GoForward
   
6. GoHome
   
7. GoSearch
   
8. Navigate
   
9. Navigate2
   
10. PutProperty
    
11. QueryStatusWB
    
12. Quit
    
13. Refresh
    
14. Refresh2
    
15. ShowBrowserBar
    
16. Stop
    
17. AddressBar
    
18. Application
    
19. Busy
    
20. Container
    
21. Document
    
22. FullName
    
23. FullScreen
    
24. Height
    
25. HWND
    
26. Left
    
27. LocationName
    
28. LocationURL
    
29. MenuBar
    
30. Name
    
31. Offline
    
32. Parent
    
33. Path
    
34. ReadyState
    
35. RegisterAsBrowser
    
36. RegisterAsDropTarget
    
37. Resizable
    
38. Silent
    
39. StatusBar
    
40. StatusText
    
41. TheaterMode
    
42. ToolBar
    
43. Top
    
44. TopLevelContainer
    
45. Type
    
46. Visible
    
47. Width

复制代码

DAIC

回复 4# CrLf


    给个关闭指定路径的文件夹窗口的例子吧

CrLf

回复 6# DAIC


差不多像这样：

1. path = "c:"
   
2. 
   
3. Dim fso
   
4. Set fso = WScript.CreateObject("Scripting.Filesystemobject")
   
5. 
   
6. path = fso.GetFolder(path).Path
   
7. path = "file:///" & Replace(path,"","/")
   
8. 
   
9. Dim Shell
   
10. Set Shell = WScript.CreateObject("Shell.Application")
    
11. 
    
12. For Each W In Shell.Windows
    
13.         If w.LocationUrl=path Then W.Quit
    
14. Next

复制代码

apang

回复 5# CrLf


    说来惭愧，我是在网上找一些资料，比如这里，然后照猫画虎。。。

CrLf

回复 8# apang


    这资料不错，收藏了
    powershell 虽然能列出方法和属性名，但不懂怎么取得 helpstring，顿时觉得裆部隐隐作痛...