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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024