一个 简单的读文件的问题

Question

Private Sub Form_Load()
'打开默认播放列表
Dim data
    Open "C:\Program Files\Microsoft Visual Studio\VB98\wbcls1.txt" For Input As #1
Do Until EOF(1)
  Input #1, data
  List1.AddItem data
Loop
Close #1
setplaylistEnd Sub
为什么open这句找不到文件呢  要如何写

Answer 1

nNode = 0
Open TheInFileNode For Input As #1     '打开文件TheInFileNode 以读取
Do While Not EOF(1)          '如果文件没有读完（即每到末尾）
    Line Input #1, LineTemp  '读取文本的一行字符串到变量LineTemp 中，读取游标移到下行
    nNode = nNode + 1        '已读取的行号累加一
Loop
Close (1)                    '关闭文件

Answer 2

Dim data As String
    Open "C:\Program Files\Microsoft Visual Studio\VB98\wbcls1.txt" For Input As #1
Do While Not EOF(1)
  Line Input #1, data
  List1.AddItem data
Loop
Close #1
setplaylist

Answer 3

"C:\Program Files\Microsoft Visual Studio\VB98\wbcls1.txt"  你换个路径试试，或许里面的空格是干扰因素。