
CODE: [Copy to clipboard]上面的代码是将剪贴板的字符保存到A.TXT,但会覆盖以前的数据.求个不会覆盖数据的代码.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
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |