VBS读取文件内容到剪切板

batman

1. '本vbs是读取的当前目录下的a.txt的内容，请自行修改path值
   
2. dim strcopy,path
   
3. set wshshell=createobject("wscript.shell")
   
4. path=wshshell.currentdirectory
   
5. set objfso=createobject("scripting.filesystemobject")
   
6. set objtxt=objfso.opentextfile(path&"\a.txt",1)
   
7. strcopy=objtxt.readall
   
8. set objie=createobject("internetexplorer.application")
   
9. objie.navigate("about:blank")
   
10. objie.document.parentwindow.clipboarddata.setdata "text", strcopy
    
11. objie.quit
    
12. set objie=nothing
    
13. set objtxt=nothing
    
14. set objfso=nothing
    
15. set wshshell=nothing

复制代码

defanive

还是得通过IE啊。。。
vbs没有自带ClipBoard对象么。。。