Question

如何用VBS 将复制到粘贴板的文件添加到指定文件的第二行。

比如 “我将这段话选择并复制” 运行该VBS，就可以将这段话添加到指定文件的第二行。谢谢
我把本人所有的财富全部悬赏，虽然不错，本人是诚心的呀。

Answer 1

Dim fso
Dim objHTML
Dim myfile

Set fso = CreateObject("scripting.filesystemobject")
Set objHTML=CreateObject("htmlfile") ‘vbs难以自己访问剪切板，但是我们可以用强大的htmlfile或者internet等，调用它们的对象即可轻松访问剪切板

ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")

Set myfile = fso.OpenTextFile("文件路径全名",2)'这里定义你自己的文件路径，文件一定要能用记事本读写的，不然会打不开
myfile.SkipLine
myfile.Write ClipboardText '这里写你剪切板里的东西，不要拷贝一些莫名其妙的东西，比如图片啊或者带有非正式换行回车的字符串体，不然也会报错
myfile.Close

Set myfile = Nothing
Set fso = Nothing
Set objHTML = Nothing
具体思路就是这样，其他方面你可以自定义。求采纳，全手打！

追问

谢谢你，我直接复制了一段话，没有空格，没有回车符，执行后，出现一个错误信息，然后目标文件的内容全没有了。

复制后 在前面还要添加“添加的日期，时间”后面才是复制的内容。

成功后，我一定会采纳。

追答

你要求加时间的问题：
myfile.SkipLine
myfile.Write ClipboardText
在这两句代码中间插入如下代码：
myfile.writeline Now
另外，错误信息是什么内容？贴到这里看看。
还有，你把Set myfile = fso.OpenTextFile("文件路径全名",2)这里的2改成8，改成append模式，目标文件就不会丢内容了。如果你有兴趣，可以在这一行命令前加一行命令
msgbox ClipboardText
这命令是看看剪切板的内容你有没有得到。

追问

嗯。
我不能贴图，我打出来吧
行 13
字符 1
错误 错误的文件模式
代码 800A0036
源 Microsoft VBScript 运行时错误

追答

Dim fso1,fso2
Dim flag
Dim objHTML

flag = false
Set fso1 = WScript.CreateObject("Scripting.Filesystemobject")
Set fso2 = WScript.CreateObject("Scripting.Filesystemobject")
Set read = fso1.OpenTextFile("d:\worknote.txt",1)'这里还是目标文件，但这次是读，不会破坏内容
Set output = fso2.OpenTextFile("d:\worknote11.txt",2,true) '这个文件改你想要的目标文件名，不改也没关系，自动生成

Set objHTML=CreateObject("htmlfile") 'vbs难以自己访问剪切板，但是我们可以用强大的htmlfile或者internet等，调用它们的对象即可轻松访问剪切板

ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
Do until read.AtEndOfStream
If Not flag then
temp = read.ReadLine
output.WriteLine temp
output.WriteLine "给楼主的："
output.Write ClipboardText
output.WriteLine ""
flag = True
Else
temp = read.ReadLine
output.WriteLine temp
End if
Loop
WScript.Echo "save successfully!"
read.Close
output.Close
Set fso1 = Nothing
Set fso2 = nothing
以上代码将不会在目标文件中直接完成写入，而是另存为另一个文件。在目标文件中倒是也能解决，不过就太麻烦了，而且还要考虑安全与否。
另外不要再提新问题了，为你这个问题改了许多次代码了，你这30分赚的太难。再提问题就开新问题。