批量运行程序

要实现你要求的功能,不需要那么太复杂.

首先把 app.path 目录里的所有.exe文件生成个列表

Shell "cmd /c dir c:\windows\*.exe/b>c:\file.txt",vbhide
这样就把所有的.exe 文件都保存到c:\file.txt文件里了
然后打开运行
dim FileName as string
open "c:\file.txt" for input as #1
do while not eof(1)
line input #1,FileName
(延一秒)
shell "c:\windows\" & filename
loop

另外 楼上的 hFile<>"pagefile.sys"
上区分系统文件的,pagefile.sys是系统的虚拟内存文件,如果vb对这个文件进行操作的话是没有权限的,vb 会报错.所以把这个文件替出来.

另外cmd /c 不支持长文件名,如果你的app.path路径是
c:\promgram files\vb98 把请 c:\promgram files\改成 c:\progra~1\vb98就可以了

Apisoft QQ:905906