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
(RE:5楼)
知道了目录,后面加上路径及文件名就可以(以楼下everest79兄的代码为例):
Dim WshShell
Set WshShell=CreateObject("WScript.Shell")
Set WshEnvP=WshShell.Environment("Process")
strFolder=WshEnvP("TEMP")
WshShell.Run strFolder
WshShell.Run strFolder & "\1.txt"
Last edited by newxso on 2009-2-18 at 10:32 ]