同名文件的追加问题

Question

在目录c:\dd下存在文件aa.txt  bb.txt
在目录d:\dd下存在同名文件aa.txt bb.txt
如何将c:盘下dd目录中文件aa.txt  bb.txt追加到d:\dd下在同名文件aa.txt bb.txt的尾部

Answer 1

那得用Open 语句先分别读出c:盘下dd目录中文件aa.txt  bb.txt的文件内容，然后再用Open 语句分别追加到d:\dd下在同名文件aa.txt bb.txt的尾部

Answer 2

简单例子：
往c:\1.txt文件追加数据123
    Open "c:\1.txt" For Append As #1
        Write #1, 123
    Close #1

Answer 3

用word格式D:\aa.txt
private sub ()
  dim doc as document
  set doc=activedocument
  selection.end=doc.content.end
  selection.start=selection.end
  selection.insertafter(vbcr)
  selection.end=doc.content.end
  selection.start=selection.end
  selection.insertfile("c:\dd\aa.txt")
  set doc=documents.open("D:\dd\bb.txt")
  doc.activate
  selection.start=doc.content.end
  seleciton.end=selection.start
  selection.insertafter(vbcr)
  selection.insertfile("c:\dd\bb.txt")
  msgbox "OK!"
end sub

Answer 4

用selection.insertbreak
  seleciton.insertfile(filename)
将会在下一页开始要加入的文件。