Question

如何用VBS将剪贴板内容复制到同一目录下的记事本中

如题。我已经将需要的内容复制出来到剪贴板了，接下来我想把复制的内容给粘贴出来。请问怎么新建一个txt文档并将内容复制进去？希望各位大神给出代码，本人是菜鸟。

Answer 1

'获取粘贴板内容，保存到a中
Set objHTML=CreateObject("htmlfile")
a=objHTML.ParentWindow.ClipboardData.GetData("text")

'如果a有内容，则写到文件"生日快乐.TXT"中
if a <> "" Then
Set fs=CreateObject("Scripting.FileSystemObject")
Set file=fs.CreateTextFile("生日快乐.TXT",true)
file.WriteLine a
MsgBox a
End If