中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已结]判断一个文件夹是否打开
作者:
标题: [已结]判断一个文件夹是否打开 上一主题 | 下一主题
q115643492
新手上路





积分 6
发帖 6
注册 2008-5-11
状态 离线
『楼 主』:  [已结]判断一个文件夹是否打开

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


2009-2-9 15:49
查看资料  发短消息 网志   编辑帖子  回复  引用回复
hhasee
初级用户





积分 185
发帖 88
注册 2008-5-12
状态 离线
『第 2 楼』:  

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


2009-2-9 16:37
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zhengqian529
初级用户





积分 100
发帖 93
注册 2009-1-14
来自 湖南
状态 离线
『第 3 楼』:  

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


2009-2-9 16:40
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (250988158)  编辑帖子  回复  引用回复
yishanju
银牌会员

[b]看你妹啊[/b]


积分 1488
发帖 1357
注册 2006-5-20
状态 离线
『第 4 楼』:  

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




有问题请发论坛或者自行搜索,再短消息问我的统统是SB
2009-2-10 00:10
查看资料  发短消息 网志   编辑帖子  回复  引用回复
yishanju
银牌会员

[b]看你妹啊[/b]


积分 1488
发帖 1357
注册 2006-5-20
状态 离线
『第 5 楼』:  

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




有问题请发论坛或者自行搜索,再短消息问我的统统是SB
2009-2-10 00:21
查看资料  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 6 楼』:  Re 5楼

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




2009-2-10 00:58
查看资料  发短消息 网志   编辑帖子  回复  引用回复
q115643492
新手上路





积分 6
发帖 6
注册 2008-5-11
状态 离线
『第 7 楼』:  

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


2009-2-14 10:35
查看资料  发短消息 网志   编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 8 楼』:  

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




精简 [你的+我的+他的]=>[大家的] 个人网志
2009-2-14 12:52
查看资料  发送邮件  发短消息 网志  OICQ (37659560)  编辑帖子  回复  引用回复
knoppix7
银牌会员





积分 1287
发帖 634
注册 2007-5-2
来自 cmd.exe
状态 离线
『第 9 楼』:  

那个openfiles命令?...


2009-2-15 12:12
查看资料  发短消息 网志   编辑帖子  回复  引用回复
q115643492
新手上路





积分 6
发帖 6
注册 2008-5-11
状态 离线
『第 10 楼』:  

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


   此帖被 +2 点积分    点击查看详情   
评分人：【 HAT 】分数： +2  时间：2009-2-15 18:39


2009-2-15 18:28
查看资料  发短消息 网志   编辑帖子  回复  引用回复
newxso
初级用户

l i u s s


积分 73
发帖 101
注册 2008-9-17
来自 GZ
状态 离线
『第 11 楼』:  

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


2009-2-17 01:40
查看资料  发短消息 网志   编辑帖子  回复  引用回复
q115643492
新手上路





积分 6
发帖 6
注册 2008-5-11
状态 离线
『第 12 楼』:  

Originally posted by newxso at 2009-2-17 01:40 AM: 代码有误，不成功。可以试试： [code] Dim WshShell,FolderTitle Set WshShell=WScript.CreateObject("Wscript.Shell") FolderTitle="test" If WshShell.AppActivate( ...
这个我试了，运行正常啊 test打开则执行c:\test\a.txt test没打开则执行c:\test\b.txt 你再试试啊，是VBS脚本，不是BAT。如果还是不行，请把 FolderTitle="test" 这里设置全路径，如FolderTitle="c:\test"


2009-2-17 01:57
查看资料  发短消息 网志   编辑帖子  回复  引用回复
everest79
金牌会员

一叶枝头，万树皆春



积分 2564
发帖 1127
注册 2006-12-25
状态 离线
『第 13 楼』:  

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




49206C6F766520796F752067757973 54656C3A3133383238343036373837
2009-2-17 02:59
查看资料  发短消息 网志   编辑帖子  回复  引用回复
newxso
初级用户

l i u s s


积分 73
发帖 101
注册 2008-9-17
来自 GZ
状态 离线
『第 14 楼』:  

没留意，因为我一直用的系统都是标题栏不显示完整路径的。如下方式就万无一失：
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


2009-2-17 09:30
查看资料  发短消息 网志   编辑帖子  回复  引用回复
everest79
金牌会员

一叶枝头，万树皆春



积分 2564
发帖 1127
注册 2006-12-25
状态 离线
『第 15 楼』:  

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




49206C6F766520796F752067757973 54656C3A3133383238343036373837
2009-2-18 02:27
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023