中国DOS联盟

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

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

作者: 标题: [已结]判断一个文件夹是否打开 上一主题 | 下一主题 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          (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        (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 楼』:     Quote: 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 楼』:     Quote: 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讨论区  > DOS学习入门 & 精彩文章 （教学室）  > DOS疑难解答 & 问题讨论 （解答室）  > DOS启动盘 & LOGO技术 （启动盘室）  > DOS批处理 & 脚本技术（批处理室）  > DOS媒体世界 & 网络技术 （多媒体室）  > DOS汉化世界 & 中文系统 （中文化室）  > DOS开发编程 & 发展交流 （开发室）  > DOS软件下载 & 游戏分享 （下载室） 其它讨论区  > GRUB4DOS、SYSLINUX及其它启动管理软件讨论专区  > 其它操作系统综合讨论区  > WinPE、PowerShell及其它命令行系统专区  > 贴图灌水、文学娱乐专区 服务区  > 网络日志（Blog）  > 论坛回收站      > 链接失效，待修正