批处理之家 - Powered by Discuz! Board

标题: [文件操作] 批处理如何删除多个文件夹进程？ [打印本页]

作者: lion991128 时间: 2014-8-19 11:45 标题: 批处理如何删除多个文件夹进程？

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

作者: apang 时间: 2014-8-19 15:05

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

作者: DAIC 时间: 2014-8-19 15:13

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

作者: CrLf 时间: 2014-8-19 15:26

本帖最后由 CrLf 于 2014-8-19 17:24 编辑

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 时间: 2014-8-19 15:51

本帖最后由 CrLf 于 2014-8-19 17:30 编辑

回复 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 时间: 2014-8-19 16:05

回复 4# CrLf

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

作者: CrLf 时间: 2014-8-19 16:26

回复 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 时间: 2014-8-19 18:37

回复 5# CrLf

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

作者: CrLf 时间: 2014-8-19 19:53

回复 8# apang

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

欢迎光临批处理之家 (http://bathome.net./)