__________________________________________
Private Sub Image1_Click(Index As Integer)
’启动的图标
Dim StrArray() As String
Open App.Path & "\save.txt" For Input As #1’读取的文本
Do While Not EOF(1)
Line Input #1, LineData
StrArray = Split(LineData, " ") '这里加入给文本框赋值的代码
Loop
Close #1
Shell (StrArray(4))’执行保存在txt里的路径
___________________________________________
有错误啊！
下标越界？？

懂的人，帮忙LOOK一下下~~~~~~
急啊~~~~~~~~~~~``

怎么没人理我啊~~

不好意思，是这样的，我是保存了一个路径在txt里，然后另image.click用shell去读取里面的.exe程序。

比如：D:\Program Files\QQ\QQ.exe

我想做一个启动链接：如
~~~~~~~~~~~~~~~~~~~
添加的项目有3个：
1
D:\MuOnline\DataServer0\Dataserver.exe
请选择启动路径
2
D:\MuOnline\DataServer1\Dataserver.exe
请选择启动路径
3
D:\MuOnline\文本替换专家.exe
请选择启动路径
~~~~~~~~~~~~~~~~~~~~~``
怎样读取文本里的3、6、9项里的.exe程序啊~~~~

能写一下代码吗？