标题: VBS读取文件内容到剪切板 [打印本页]
作者: batman 时间: 2009-4-25 22:42 标题: VBS读取文件内容到剪切板
- '本vbs是读取的当前目录下的a.txt的内容,请自行修改path值
- dim strcopy,path
- set wshshell=createobject("wscript.shell")
- path=wshshell.currentdirectory
- set objfso=createobject("scripting.filesystemobject")
- set objtxt=objfso.opentextfile(path&"\a.txt",1)
- strcopy=objtxt.readall
- set objie=createobject("internetexplorer.application")
- objie.navigate("about:blank")
- objie.document.parentwindow.clipboarddata.setdata "text", strcopy
- objie.quit
- set objie=nothing
- set objtxt=nothing
- set objfso=nothing
- set wshshell=nothing
复制代码
作者: defanive 时间: 2009-4-25 23:51
还是得通过IE啊。。。
vbs没有自带ClipBoard对象么。。。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |