VB 多文件组合

来源：百度知道 编辑：UC知道 时间：2024/05/21 09:32:58
想把一个目录下的某些相同特征(比如文件名的前三个字符相同，后四个不同，为日期)的txt文件组合成一个txt文件，要按照原文件名中的时间顺序。请问如何将它们的内容组合成一个文件（各文件内部的数据格式相同）
1000712.txt中
00000000
00000001
00000002
1000713.txt中
00000003
00000004
想最终合并成
1000.txt
00000000
00000001
00000002
00000003
00000004
现在已经可以把目录下的所有txt目录查出列在一个LISTBOX中，请问下面如何处理，谢谢。

呵呵和我做的东西一样哦。
你可以新建一个文件。
然后用循环语句分别打开每个文件逐行读出内容赋值给变量
将变量写入新文件。
这样就搞定啦
Dim Fso As FileSystemObject
Dim New_File As TextStream
Dim Load_File As TextStream
Dim I As Integer
Dim str As String
Set Fso = New FileSystemObject
Set New_File = Fso.CreateTextFile(path, True)
For I = 0 To List1.ListCount
Set Load_File = Fso.OpenTextFile(要合并的文件路径)
While Not Load_File.AtEndOfLine
str = Load_File.ReadLine
New_File.WriteLine str
Wend
Load_File.Close
Next I
New_File.Close