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

rat

1. @echo off
   
2. call :cf2cb "%comspec%"
   
3. exit /b
   
4. 
   
5. ::CopyFile2ClipBoard
   
6. :cf2cb
   
7. setlocal
   
8. set "f=%~1"
   
9. set "f=%f:\=/%"
   
10. 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>'"
    
11. goto :eof

复制代码

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

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

1. @echo off
   
2. call :c2cb "c:\a\a a"
   
3. exit /b
   
4. ::Copy2ClipBoard
   
5. :c2cb
   
6. setlocal
   
7. set "f=%~1"
   
8. set "f=%f:\=/%"
   
9. set "f=%f: =ｒ%"
   
10. 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>'"
    
11. goto :eof

复制代码

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

1. @echo off
   
2. call :c2cb "%ProgramFiles%\microsoft frontpage"
   
3. exit /b
   
4. 
   
5. ::Copy2ClipBoard
   
6. :c2cb
   
7. setlocal
   
8. set "f=%~1"
   
9. set "f=%f:\\=\%"
   
10. set "f=%f:\=\\%"
    
11. mshta "javascript:moveTo(screen.width,0);document.write('<img id=\'x\' src=\'%f%\'>');i=document.body.createControlRange();i.add(x);i.execCommand('copy');close()"
    
12. goto :eof

复制代码

随风

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

defanive

调用万能的JS。。。

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

rat

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

zqz0012005

没必要再用vbscript吧。

rat

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

zqz0012005

我对html和javascript也没怎么研究

1. @echo off
   
2. call :cf2cb "%ProgramFiles%\microsoft frontpage"
   
3. exit /b
   
4. 
   
5. ::CopyFile2ClipBoard
   
6. :cf2cb
   
7. setlocal enableDelayedExpansion
   
8. set "f=%~1"
   
9. set "f=%f:\=\\%"
   
10. set "f=!f: =%%20!"
    
11. 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();"
    
12. goto :eof

复制代码

rat

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

zhangop9

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