如何使用vbs打开所在目录下的某一类型的文件?
发布网友
共1个回答
热心网友
On Error Resume next
Dim ws
Dim fso
Set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
Set fs = fso.GetFolder(ws.currentdirectory).Files
for each x In fs
If LCase(fso.getextensionName(x))="txt" Then
ws.Run x
End if
next追问出错了，
错误：系统找不到指定的文件。
代码：800700002
源：(null)
追答这样就对了，你试试。
Dim ws
Dim fso
Set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
Set fs = fso.GetFolder(ws.currentdirectory).Files
for each x In fs
If LCase(fso.getextensionName(x))="txt" Then
ws.Run """"&x&""""
End if
next
