CODE: [Copy to clipboard]
set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=false
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("test.txt",1)
ie.document.parentwindow.clipboarddata.setdata "text",""
do while f.atendofstream <> true
line = f.readline
str=ie.document.parentwindow.clipboarddata.getdata("text")
ie.document.parentwindow.clipboarddata.setdata "text",str+vbCrLf+line
loop
str=ie.document.parentwindow.clipboarddata.getdata("text")
ie.quit
msgbox str
[