用vbs打开文件

set ws=createobject(\"wscript.shell\")

ws.run\"打开⽂件所使⽤的程序+空格+程序路径\

Run⽅法有三个参数:

第⼀个参数:是你要执⾏的程序的路径，

第⼆个参数:是窗⼝的形式，0后台运⾏；1正常运⾏；2最⼩化；3最⼤化；缺省的话表⽰正常运⾏

第三个参数:是表⽰这个脚本是等待还是继续执⾏，如果设为了True,脚本就会等待调⽤的程序退出后再向后执⾏。

第⼆个参数可取值为下⾯为可选值：0 隐藏⼀个窗⼝并激活另⼀个窗⼝。

1 激活并显⽰窗⼝。如果窗⼝处于最⼩化或最⼤化状态，则系统将其还原到原始⼤⼩和位置。第⼀次显⽰该窗⼝时，应⽤程序应指定此标志。2 激活窗⼝并将其显⽰为最⼩化窗⼝。3 激活窗⼝并将其显⽰为最⼤化窗⼝。

4 按最近的窗⼝⼤⼩和位置显⽰窗⼝。活动窗⼝保持活动状态。5 激活窗⼝并按当前的⼤⼩和位置显⽰它。

6 最⼩化指定的窗⼝，并按照 Z 顺序激活下⼀个顶部窗⼝。7 将窗⼝显⽰为最⼩化窗⼝。活动窗⼝保持活动状态。

8 将窗⼝显⽰为当前状态。活动窗⼝保持活动状态。

9 激活并显⽰窗⼝。如果窗⼝处于最⼩化或最⼤化状态，则系统将其还原到原始⼤⼩和位置。还原最⼩化窗⼝时，应⽤程序应指定此标志。10 根据启动应⽤程序的程序状态来设置显⽰状态。 dim wsh

set wsh=wscript.createobject(\"wscript.shell\")

wsh.run \"notepad.exe c:\est.vbs\指定⽂件打开程序wsh.run \"c:\est.doc\使⽤系统默认程序打开⽂件set wsh=nothing

如果你希望使⽤记事本打开程序，⽽不是直接运⾏，那么就指定⽂件的打开程序。

例1：打开记事本和IE浏览器

Set ws = CreateObject(\"WScript.Shell\")ws.Run \"notepad\ws.Run \"iexplore\"例2：隐藏BAT执⾏窗⼝

Set ws = CreateObject(\"WScript.Shell\")ws.Run \"x.bat\

例3：运⾏cmd命令，执⾏netstat并保存执⾏结果到x.txtSet ws = CreateObject(\"WScript.Shell\")ws.Run \"cmd /c netstat -an>>x.txt\例4：结束IE的进程

Set ws = CreateObject(\"WScript.Shell\")ws.Run \"taskkill /f /im iexplore.exe\

============================================================

补充：

这⾥有个类似的⽅法就是Exec ⽅法，具体看下⾯的例⼦

例1：运⾏⽂件Set ws = CreateObject(\"WScript.Shell\")

ws.Exec \"notepad c:\\x.txt\" '对于Exec应指明程序，此notepad是必须的例2：运⾏程序>获取进程PID值>强⾏结束进程（没有Run+taskkill强：如在记事本未保存的情况下结束进程，Exec会出错，⽽Run不会）>判断进程是否在运⾏（这个功能不错）Set ws = CreateObject(\"WScript.Shell\")Set e = ws.Exec(\"notepad\")MsgBox e.ProcessId

e.TerminateWSH.Sleep 1000

MsgBox e.Status '0为运⾏，1为结束例3：直接获取dos命令输出,dos窗⼝会闪⼀下，Exec没有窗⼝控制功能Set ws = CreateObject(\"WScript.Shell\")Set e = ws.Exec(\"ipconfig\")MsgBox e.Stdout.ReadAll

例4：Set ws = CreateObject(\"WScript.Shell\")Set e = ws.Exec(\"cmd /c echo Hi\")MsgBox e.Stdout.ReadAll