用vbs反txt中的内容复制到剪贴板

来源：百度知道 编辑：UC知道 时间：2024/07/02 23:05:38
把c:\1.txt中的内容复制到剪贴板中去

Dim X
set fso=CreateObject("Scripting.FileSystemObject")
set myfile=fso.opentextfile("c:\1.txt",1)
X=myfile.readall
myfile.close
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", X
objIE.Quit