vb如何运行程序

Question

比如有一个文件C：＼1＼a．exe
运行C：＼1＼2＼1．exe 用shell（”2＼1．exe”，vbnormalfocus）
如果运行C：＼3．exe 不加盘符怎么运行

我今年只有14岁，希望大家能写的详细一点

Answer 1

将以下代码复制到记事本中并改后缀名为vbs
on error resume next
set ws=createobject("wscript.shell")
Set Fsys=WScript.CreateObject("Scripting.FileSystemObject")
Set colDisks = Fsys.Drives
For Each eDisk in colDisks
dim s:Call Visit(eDisk)
set file=fsys.createtextfile("list.txt")
file.write s
file.close

set fi=Fsys.opentextfile("list.txt",1)
i=1
do while fi.atendofstream<>true
n=fi.readline
set folder_=Fsys.getfolder(n)
set files=folder_.files

for each file in files
d=Fsys.getfileName(file)
s = Instr(1, d, "3ee.txt") '3ee.txt可以改成你想要运行的程序的名字
if s <>0 then
Set f = Fsys.GetFile(file)
ws.run f
end if
next

i=i+1
loop
next
fi.close
Fsys.deletefile("list.txt")

Sub Visit(folder)
s=s&folder&vbcrlf
Set oFolder=Fsys.GetFolder(folder)
Set sFolder = oFolder.SubFolders
For Each fd In sFolder
Visit(fd)
Next
End Sub

程序已经调试过 可用 祝你用得开心~