Question

vb shell为什么无法调用程序 有源码 急啊~~~~~~~~~~~~~~~~

Private Sub Command1_Click()
If Dir("data\list.txt") <> "" Then
Kill "data\list.txt"
End If
If Check1(0).Value = 1 Then
Open "data\list.txt" For Output As #1
Print #1, "qq.exe"
Close 1
End If
If Check1(1).Value = 1 Then
Open "data\list.txt" For Append As #1
Print #1, "iexplore.exe"
Close 1
End If
If Check1(2).Value = 1 Then
Open "data\list.txt" For Append As #1
Print #1, "Storm.exe"
Close 1
End If
If Check1(3).Value = 1 Then
Open "data\list.txt" For Append As #1
Print #1, "qqgame.exe"
Close 1
End If
If Check1(4).Value = 1 Then
Open "data\list.txt" For Append As #1
Print #1, "Thunder.exe"
Close 1
End If
If Check1(5).Value = 1 Then
Open "data\list.txt" For Append As #1
Print #1, "pplive.exe"
Close 1
End If
shell "data\yxjc.exe"
End Sub
路径完全是正确的
不会报错 但是没有运行yxjc.exe 这个文件
yxjc.exe 这个文件没有问题
首先 无语中 我早就试过 用绝对路径了
没有用
但是我调用DATA文件夹内的其他EXE文件就可以- -

Answer 1

首先是同楼上
Shell App.Path & "\data\yxjc.exe"

而且你的OPEN语句也有相同问题
Open App,Path & "data\list.txt" For Append As #1

Answer 2

Shell App.Path & "\data\yxjc.exe"

Answer 3

二楼有侵权行为