[系统增强] 批处理拷贝文件(夹)到剪贴板

rat

@echo off
call :cf2cb "%comspec%"
exit /b
 
::CopyFile2ClipBoard
:cf2cb
setlocal
set "f=%~1"
set "f=%f:\=/%"
mshta "javascript:'<script language="vbscript">moveto screen.width,0:document.write "^<img"+chr(32)+"src=""%f%""^>":with document.body.createControlRange:.add document.getElementsByTagName("img")(0):.execCommand "Copy":end with:close</script>'"
goto :eofCOPY

————————————————————————————————————

Update 2009-4-20 17:45
修正路径中含空格不能复制的bug；
发现也可复制文件夹（包括里面的文件（夹））。

@echo off
call :c2cb "c:\a\a a"
exit /b
::Copy2ClipBoard
:c2cb
setlocal
set "f=%~1"
set "f=%f:\=/%"
set "f=%f: =ｒ%"
mshta "javascript:'<script language="vbscript">moveto screen.width,0:document.write Replace("^<imgｒid=""x""ｒsrc=""%f%""^>","ｒ",chr(32)):with document.body.createControlRange:.add x:.execCommand "Copy":end with:close</script>'"
goto :eofCOPY

——————————————————————————————————
Update 2009-4-24 14:20
优化了代码（参考7L代码）

@echo off
call :c2cb "%ProgramFiles%\microsoft frontpage"
exit /b
 
::Copy2ClipBoard
:c2cb
setlocal
set "f=%~1"
set "f=%f:\\=\%"
set "f=%f:\=\\%"
mshta "javascript:moveTo(screen.width,0);document.write('<img id=\'x\' src=\'%f%\'>');i=document.body.createControlRange();i.add(x);i.execCommand('copy');close()"
goto :eofCOPY

随风

牛！怎么实现的？那一堆代码根本看不懂。。

defanive

调用万能的JS。。。

话说VBS不行么，HTA有clipboard对象的吧。。。

rat

http://hi.baidu.com/ycosxhack/bl ... d0a35fd0090636.html

zqz0012005

没必要再用vbscript吧。

rat

比较熟悉vbscript，没试过javascript，兄试试？

zqz0012005

我对html和javascript也没怎么研究

@echo off
call :cf2cb "%ProgramFiles%\microsoft frontpage"
exit /b
 
::CopyFile2ClipBoard
:cf2cb
setlocal enableDelayedExpansion
set "f=%~1"
set "f=%f:\=\\%"
set "f=!f: =%%20!"
mshta "javascript:moveTo(screen.width,0);document.write('<img src=\'%f%\'>');i=document.body.createControlRange();i.add(document.getElementsByTagName('img')[0]);i.execCommand('copy');close();"
goto :eofCOPY

rat

兄的代码可以不用替换空格

zhangop9

批处理拷贝文件(夹)到剪贴板