[文件操作] 批处理如何删除多个文件夹进程？

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：

Set Shell = WScript.CreateObject("Shell.Application")

For Each W In Shell.Windows
	If Instr(LCase(W.FullName),"\explorer.exe") Then W.Quit
Next
复制代码

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

CrLf

回复 2# apang


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

ClientToWindow
ExecWB
GetProperty
GoBack
GoForward
GoHome
GoSearch
Navigate
Navigate2
PutProperty
QueryStatusWB
Quit
Refresh
Refresh2
ShowBrowserBar
Stop
AddressBar
Application
Busy
Container
Document
FullName
FullScreen
Height
HWND
Left
LocationName
LocationURL
MenuBar
Name
Offline
Parent
Path
ReadyState
RegisterAsBrowser
RegisterAsDropTarget
Resizable
Silent
StatusBar
StatusText
TheaterMode
ToolBar
Top
TopLevelContainer
Type
Visible
Width
复制代码

DAIC

回复 4# CrLf


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

CrLf

回复 6# DAIC


差不多像这样：

path = "c:"

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")

path = fso.GetFolder(path).Path
path = "file:///" & Replace(path,"\","/")

Dim Shell
Set Shell = WScript.CreateObject("Shell.Application")

For Each W In Shell.Windows
	If w.LocationUrl=path Then W.Quit
Next
复制代码

apang

回复 5# CrLf


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

CrLf

回复 8# apang


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