Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate("about:blank")

str = ie.document.parentwindow.clipboardData.GetData("text")

Const ForWriting = 2 

Set objFSO = CreateObject("Scripting.FileSystemObject") 

Set objFile = objFSO.OpenTextFile("a.txt", ForWriting, True) 

objFile.Write str

objFile.Close

上面的代码是将剪贴板的字符保存到A.TXT,但会覆盖以前的数据.求个不会覆盖数据的代码.

A.TXT:
我想你

剪贴板的内容"我爱你",运行后想得到的:
A.TXT:
我想你
我爱你


谢谢!!

Last edited by HAT on 2009-1-8 at 23:01 ]

看帮助

iomode 参数可为下列设置之一：

ForReading 1 以只读模式打开文件。不能对此文件进行写操作。
ForWriting 2 以只写方式打开文件。不能对此文件进行读操作。
ForAppending 8 打开文件并在文件末尾进行写操作。

没学过,有空我去看看...