中国DOS联盟

我想求一个脚本：
判断一个文件夹是否打开，如果是打开就执行程序a。如果没有打开就执行程序b.
比如我手动打开c:\1文件夹后，在任务管理器中进程是没有变化的，只会在应用程序里显示，所以不能用进程来判断。看能不能判断任务管理器中的应用程序来达到目的呢？或者其他思路，请高手讨论！

[ Last edited by HAT on 2009-2-14 at 13:16 ]

有同感，再补充一下，如果在DOS下也能判断就更好了，请高手们赐招！

关键在于在哪里获取这个文件夹打开或者关闭状态的信息，

windows 下枚举所窗口的TITLE来判断

tasklist taskkill 有判断窗口标题的参数，但是我从来就运行成功过

这个方法只对那些一个应用对应一个进程的情况有效（比如word）。不适用于楼主的问题。

谢谢！问题已经解决，结帖吧1

把方法贴出来分亨一下嘛！

那个openfiles命令?...

Dim objws,folders
Set objws=WScript.CreateObject("wscript.shell")
folders="c:\1"
strfolder=Split(folders,";",-1,1)
For Each f In strfolder
If objws.AppActivate(f)=True Then
objws.run "c:\1.txt"
Else

objws.run "c:\2.txt"

End If
Next

10楼

代码有误，不成功。可以试试：
Dim WshShell,FolderTitle Set WshShell=WScript.CreateObject("Wscript.Shell") FolderTitle="test" If WshShell.AppActivate(FolderTitle)=True Then WshShell.run "c:\test\a.txt" Else WshShell.run "c:\test\b.txt" End If

这个跟本地文件夹设置有关
如果关闭了在标题栏显示完整路径，那么11楼是可行的，如果打开了，则不行

没留意，因为我一直用的系统都是标题栏不显示完整路径的。如下方式就万无一失：
Dim WshShell Set WshShell=WScript.CreateObject("Wscript.Shell") If WshShell.AppActivate("test")=True or WshShell.AppActivate("C:\test")=True Then WshShell.run "c:\test\a.txt" Else WshShell.run "c:\test\b.txt" End If

不知道wmi能不能枚举explorer的子进程标题