关于list的读取

Private Sub Command1_Click()
Open App.Path & "\1.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1
End Sub
Private Sub Command2_Click()
List1.List(List1.ListCount) = Text1.Text
End Sub

Private Sub Form_Load()
If Dir("\1.txt") = "" Then
iniPath$ = App.Path + "\1.txt"
Else
Open App.Path & "\1.txt" For Input As #1
While Not EOF(1)
Line Input #1, Strfile
List1.List(a) = Strfile
a = a + 1
Wend
Close #1
End If
End Sub


当同目录下有1.txt时却不能读取内容,这段语句那里出了问题? --------------------编程问答-------------------- 你写的乱套了
如果文件存在 你就不打开文件 --------------------编程问答-------------------- 不好意思 可能是我看错了
-------------------------------
当同目录下有1.txt时却不能读取内容,这段语句那里出了问题?
------------------------------------------
但我在你的代码里没看到"
open "1.txt" for input as #1
--------------------编程问答-------------------- 从你的Form_Load()来看, 好象如果根目录下没有1.txt(\1.txt)存在则赋予iniPath$变量以文件地址, 但你最后也没用iniPath$, 而是直接打开文件App.Path & "\1.txt". 那么如果你的文件1.txt在根目录下, 而不在App.Path下, 你是打不开1.txt的 --------------------编程问答-------------------- 从你的Form_Load()来看, 好象如果根目录下没有1.txt(\1.txt)存在则赋予iniPath$变量以文件地址, 但你最后也没用iniPath$, 而是直接打开文件App.Path & "\1.txt". 那么如果你的文件1.txt在根目录下, 而不在App.Path下, 你是打不开1.txt的 --------------------编程问答-------------------- 呵呵 我才看清楚 你if file exist then = else open file
当文件存在时你当然打不开了
把dir()= ""改成<> 就可以了 --------------------编程问答-------------------- Private Sub Form_Load() 
 
iniPath = Replace(App.Path & "\1.txt", "\\", "\") 

If Dir("\1.txt") > "" Then
    Open iniPath For Input As #1 
    Do Until EOF(1) 
        Line Input #1, Strfile 
        List1.AddItem Strfile 
    Loop
    Close #1 
End If
 
End Sub 

补充：VB ,  基础类