Question

<vb> 如何使用filelistbox显示和textbox来显示txt文档？

打错了，是“<vb> 如何使用filelistbox和textbox来显示txt文档？”

Answer 1

在窗体控件中放置一个FileListBox控件和一个TextBox控件，将FileListBox的Pattern属性改为“*.txt”，将TextBox的MultiLine属性改为True。
将以下语句复制到代码中
Option Explicit

Private Sub File1_Click()
Dim tFileName As String, tFileNumber As Integer, tLoad As String, tText As String

tFileName = Replace(File1.Path & "\" & File1.FileName, "\\", "\")
tFileNumber = FreeFile

Open tFileName For Input As #tFileNumber

Do While Not EOF(tFileNumber)

Line Input #tFileNumber, tLoad
tText = tText & tLoad & vbCrLf
DoEvents

Loop

Close #tFileNumber

Text1.Text = tText
End Sub

运行，然后在文件列表框里选择文件后就会在Text1控件里显示文件内容。
然后就是没有做DriveListBox和DirListBox的链接，这个你应该自己会吧？既然你没问我就权当你会了哦。:)

Answer 2

Dim OpenFile
CreateObject("wscript.shell").run "cmd /c dir/b ""*.txt"">tmp", 0, 1
Open App.Path & "\tmp" For Input As #1
Do Until EOF(1)
Line Input #1, i
DoEvents
OpenFile = OpenFile & i & vbCrLf
Loop
Close #1
Kill "tmp"
Text1 = OpenFile

Answer 3

去论坛看看

Answer 4

将filelistbox里的pattern属性设置成*.txt就行了