Question

VB 提示找不到路径?

s = App.Path & "\统计1\第一组.txt"
Open s For Input As #1
Do While a < 100 And Not EOF(1)
a = a + 1
Line Input #1, sStr
If a >= 2 And a <= 6 Then
Text3.Text = Text3.Text & sStr & vbCrLf
End If
Loop
Close #1

------可以运行
如果下面这样,就不能运行,提示找不到路径.

fang =combo2.text
s = App.Path & "\fang\第一组.txt"

Answer 1

在你程序所在的文件夹里面放文件夹【fang】，然后把第一次.txt这个文件放到【fang】文件夹中。这样就可以找到路径了。

Answer 2

fang是变量
s = App.Path & "\fang\第一组.txt"
这样就把fang当字符处理了，所以就找不路径了
s = App.Path & "\" & fang & "\第一组.txt"
改成上面应该可以了

Answer 3

s = App.Path & "\" & fang & "\第一组.txt"