联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
| 评分人 | 分数 | 时间 |
|---|---|---|
| HAT | +2 | 2009-02-15 18:39 |
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
Originally posted by newxso at 2009-2-17 01:40 AM:
代码有误，不成功。可以试试：
Dim WshShell,FolderTitle
Set WshShell=WScript.CreateObject("Wscript.Shell")
FolderTitle="test"
If WshShell.AppActivate( ...
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