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 ]
