[已解决]复制文字到剪帖板的vbs代码变量获取

yhcbird

strCopy = "农场"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit

上面这段是复制“农场”到剪帖版的vbs代码。我现在想实现“农场”从1.txt中获取。应该如何办到
假设
1.txt中的内容就只有一行 里面只有“农场”2字
也就是说strCopy = " "  这个" " 能不能设置一个变量从1.txt中获取

[ 本帖最后由 yhcbird 于 2011-1-3 12:34 编辑 ]

broly

Dim objIE,fso,f
Set objIE = CreateObject("InternetExplorer.Application") 
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(fso.GetFolder(".")&"\1.txt",1)
strCopy = f.ReadLine
f.Close
objIE.Navigate("about:blank") 
objIE.document.parentwindow.clipboardData.SetData "text", strCopy 
objIE.Quit 
复制代码