如何把两个文件合并。如A.txt和B.txt，我想合并成A.txt或C.txt

Question

如何把两个文件合并。如A.txt和B.txt，我想合并成A.txt或C.txt，在Dos下可以Copy A.txt+B.txt C.txt，但在VB程序里如何实现？

Answer 1

Private Sub Command1_Click()
    Shell "cmd /c copy c:\a.txt+c:\b.txt c:\c.txt"
End Sub

Answer 2

FSO模型用文件读写函数，先把B.txt内容读入内存，在用写函数（好象是write）追加到A.txt.

Answer 3

dim FileNum as long
dim tmpa="a.txt"
filenum=freefile()
open a For Binary As FileNum
  tmp=input( filelen(a),filenum)
close filenum
filenum=freefile()
c="c.txt"
open C For Binary As filenum
  write filenum , tmp
close filenumb="b.txt"
filenum=freefile()
open a For Binary As FileNum
  tmp=input( filelen(a),filenum)
close filenum
filenum=freefile()
c="c.txt"
open C For Binary As filenum
  write filenum , tmp
close filenum

Answer 4

dim a() as byteredim a(filelen("a.txt")-1)dim b() as byteredim b(filelen("b.txt")-1)open "a.txt" for binary as #11open "b.txt" for binary as #22open "c.txt" for binary as #33get #11,aput #33,aget #22,bput #33,bclose(11)close(22)close(33)

Answer 5

我觉得lxcc(虫莲)如果copy/b就更好了这样就不仅可以连接文本文件还可以连接非文本的任何文件

Answer 6

Shell "cmd /c copy c:\a.txt+c:\b.txt c:\c.txt"同意 lxcc(虫莲)

Answer 7

诚心请教楼上的:VB除了在Windows上还能在哪个系统上用?

Answer 8

//诚心请教楼上的:VB除了在Windows上还能在哪个系统上用?
只能在windows上用
我的意思是说，如果在98下，应该：
Shell "Command.com /c copy d:\a.txt+d:\b.txt d:\c.txt"

Answer 9

最好是加个参数copy/b，用二进制连接

Answer 10

EVB 可以用在Windows CE上

Answer 11

VBS可以用在随便什么系统上，

Answer 12

dim a() as byteredim a(filelen("a.txt")-1)dim b() as byteredim b(filelen("b.txt")-1)open "a.txt" for binary as #11open "b.txt" for binary as #22open "c.txt" for binary as #33get #11,,aput #33,,aget #22,,bput #33,,bclose(11)close(22)close(33)

Answer 13

回rainstormmaster(rainstormmaster):
  原来你是指不同的Windows系统啊,误会了.回楼上的金兵甲:
  WinCE也算是Windows吧,再说我问的是VB不是EVB回楼上的金兵乙:
  我问的是VB不是VBS

Answer 14

解贴把，只能用在Win98以上的Windows中

Answer 15

FSO方法。
先读取A.txt文件内容。在写到B.txt文件，再创建新文件C.txt文件。
读取文件：
dim fso as new filesystemobject ,fil1 as file,ts as textstreamset ts=fil1.openastextstream(forreading)
s=ts.readline
msgbox s
ts.close写入文件：
dim fso,txtfile
set fso=createobject("scripting.filesystemobject")
set txtfile=fso.createtextfile("c:\testfile.txt",true)
txtfile.write("文字")
txfile.close复制文件：
dim fso as new filesystemobject,txtfile,fil1,fil2
set txtfile=fso.createtextfile("c:\tetfile.txt",true)
开始复制fil1.copy("要复制的文件目录")