__________________________________________
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一下下~~~~~~
急啊~~~~~~~~~~~``

怎么没人理我啊~~

和你输入数据有关，你不放上来怎么帮你查？

确认是StrArray(4))?

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

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

当然知道  我的意思是 split函数每次都生成了五个元素的数组?  你发几行几事本里来数据来分析一下

那啥 你的意思是不是strArray在Do里面每次增加了一个元素？

很可惜，数组不是这么用的。

D:\Program Files\QQ\QQ.exe 里面不包含空格,使用Split函数分割不出什么东西来 哪来的strarray(4)?