VB获得当前目录：App.Path 用这个就可以了'具体打开参考我下面所写的Dim strstr = App.Path '将当前路径赋给字符串Shell str & "\VB6.EXE" '打开当前目录下的VB6.EXE``````记住，程序名前面要加个"\"
shell 程序名.exe直接运行
