以下这段代码所完成的驱动器，目录和文件列表框操作中文件列表框中的内容为什么不能在text1中显示呢？（控件都加了）
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
ChDrive Drive1.Drive
ChDir Dir1.Path
Text1.Text = ""
Open File1.FileName For Input As #1
b = ""
Do Until EOF(1)
Line Input #1, nextline
b = b & nextline & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = b
End Sub
谢谢帮助！

循环有问题

大哥！指点一下循环哪里有问题啊？我看不出来呢

   有能愿意讲详细点的人吗？谢谢了！

你少了一段代码，加入下面代码
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

阿，我晕死了。这么简单的问题都让我的疏忽给搞得一蹋糊涂——教训！

还是谢谢你了，麻烦了