用VB做个可执行程序实现文件合并

来源：百度知道 编辑：UC知道 时间：2024/05/04 21:48:39
用VB做个可执行程序,有个目录菜单,在这个菜单中选择N多个文件,比如30个同类型的文件,每个文件都是4列或N列数据,将这30个文件合并成一个A.TXT文件,也就是把文件2的数接到文件1后面,文件3的数接到文件2后面,生成一个格式和原来一样,但是数据合在一块的新文件.求高人赐教,谢谢!
请问怎么先引用 Microsoft Scripting Runtime ?

'请先引用 Microsoft Scripting Runtime

Public ObjFso As New FileSystemObject
dim name(),DestPath as string

DestPath = "目录名"

Set objFolder1 = ObjFso.GetFolder(DestPath)
For Each objfolder2 In objFolder1.SubFolders
Name(i)=objfolder2
i=i+1
Next