请教各位大哥一个关于VB的问题

来源：百度知道 编辑：UC知道 时间：2024/05/26 09:09:31
我的电脑e:\新建文件夹 里面有302个文本，我想将那几百个文本都合并在一个文本中要怎么做呢？
我试了好久就是做不出来....小弟在此求救啦……
写个代码出来吧，我不会这么多啊，拜托了
我的文档就是 *.txt格式的，合并时有顺序要求，我想安顺序将文档合并，文档名也是001.txt 002.txt ......等的，但不全是*.txt

这个好办，
你的文档是 *.txt 文档吗？
你对文档的合并顺序有要求吗？
请回答上述问题，我会写好程序发给你

----------------------------
12.31 后续

已完成，经调试成功，已发到你的163邮箱
代码如下

Public FSO As New FileSystemObject

Function FunFSOOpenTextFile(ByVal ObjFile As File) As String

Dim ts As TextStream

Set ts = ObjFile.OpenAsTextStream(ForReading)
FunFSOOpenTextFile = ts.ReadAll
ts.Close

End Function

Private Sub Command1_Click()
Dim ObjFolder As Folder, StrFileExt As String
Set ObjFolder = FSO.GetFolder(App.Path)

For Each ObjFile In ObjFolder.Files
StrFileExt = FSO.GetExtensionName(ObjFile)
If LCase(StrFileExt) = "txt" Then
Me.Text1.Text = Me.Text1.Text & vbCrLf & FunFSOOpenTextFile(ObjFile)
End If
Next

End Sub

WIND32_FIND_DATE wfd;
HANDLE hFind=FindFirst("e:\\