用VB6.0语言，某文件夹内有10个TXT，如何把他们都读取到一个textbox当中去？

Question

用VB6.0语言，某文件夹内有10个TXT，如何把他们都读取到一个textbox当中去？

Answer 1

Option ExplicitPrivate Sub Command1_Click()
        On Error Resume Next
        Dim i As Long
        Dim FSO As New Scripting.FileSystemObject
        Dim cFils As Object
        '读取1.txt-10.txt文件内容到Text1中
        For i = 1 To 10
            Set cFils = FSO.OpenTextFile("c:\" & i & ".txt", ForReading)
            Text1.Text = Text1.Text & cFils.ReadAll & vbCrLf
        Next
End SubPrivate Sub Form_Load()
        Text1.Text = ""
End Sub

Answer 2

用个list，读取全部的文件名。*.txt
然后循环读取对应的txt文件到textbox

Answer 3

dim sfile as string 
sfile=dir("c:\*.txt")
do while not sfile=""
  '读取c:\......txt到textbox的代码
  sfile=dir
loop

Answer 4

用vb6处理几百万行的TXT会不会卡死啊？

Answer 5

看看这个方法是你需要的吗？Dim Dir,Txt,txtFiles
Dim ttFileName As String,ttFilePath As String
Dim Fso As New FileSystemObject
Dim Ts As TextStreamSet Fso = CreateObject("Scripting.FileSystemObject")
Set Dir = Fso.GetFolder(你的文件夹路径)
Set Txt = Dir.Files '取得文件夹中所有文件的集合'列取文件名:
  For Each txtFiles In Txt
    ttFileName = ttFileName & txtFiles.Name & vbCrLf 
  Next
text1.text = ttFileName'读取所有文件内容：
  For Each txtFiles In Txt
    ttFileName = txtFiles.Name
    ttFilePaht = txtFiles.Path
    Set Ts = Fso.OpenTextFile(ttFilePaht,"ForReading")
        text1.text = text1.text & ttFileName & vbCrLf & Ts.ReadAll & vbCrLf
        Ts.Close
    Set Ts = Nothing
  Next

Answer 6

Dim Fso As New FileSystemObject
Dim Ts As TextStream
为什么运行到这两行的时候一直说“用户未定义变量类型呢”