如题!
[ Last edited by cichulai on 2009-2-18 at 03:59 ]
[ Last edited by cichulai on 2009-2-18 at 03:59 ]
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
Dim WshShell
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Exec "explorer.exe ""%temp%"""
WshShell.Run "cmd.exe /c start """" ""%temp%\a.txt""",0 ,true
Set WshShell = Nothing
Dim WshShell
Set WshShell=CreateObject("WScript.Shell")
Set WshEnvP=WshShell.Environment("Process")
strFolder=WshEnvP("TEMP")
WshShell.Run strFolder
WshShell.Run strFolder & "\1.txt"
Dim WshShell
Set WshShell=CreateObject("WScript.Shell")
Set WshEnvP=WshShell.Environment("Process")
WshShell.Run WshEnvP("TEMP")