[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 根据剪切板内容重命名当前文件,能用一行mshta代码搞定吗?

本帖最后由 zhangop9 于 2012-1-17 16:23 编辑

根据剪切板内容重命名当前文件,能用一行mshta代码搞定吗?
想达到的效果:http://bbs.bathome.net/thread-14771-1-2.html
想加入注册表中,如这样
  1. REGEDIT4
  2. [HKEY_CLASSES_ROOT\.bat\ShellNew]
  3. "command"="mshta vbscript:Execute(\"CreateObject(\"\"Scripting.FileSystemObject\"\").OpenTextFile(\"\"%2\"\",2,true).Write(clipboardData.getData(\"\"text\"\")):close\")"
  4. [HKEY_CLASSES_ROOT\.reg\ShellNew]
  5. "command"="mshta vbscript:Execute(\"CreateObject(\"\"Scripting.FileSystemObject\"\").OpenTextFile(\"\"%2\"\",2,true).Write(clipboardData.getData(\"\"text\"\")):close\")"
  6. [HKEY_CLASSES_ROOT\.vbs\ShellNew]
  7. "command"="mshta vbscript:Execute(\"CreateObject(\"\"Scripting.FileSystemObject\"\").OpenTextFile(\"\"%2\"\",2,true).Write(clipboardData.getData(\"\"text\"\")):close\")"
复制代码
vista下无法运行vbs文件。

我研究了一下,XP系统新建某类型文件时不是通过注册表的SHELLNEW中的command值来实现的
应该是filename值中的数据来取得命名
所以改SHELLNEW项估计很难办到

TOP

本帖最后由 zhangop9 于 2012-1-18 18:57 编辑
  1. reg add HKCR\*\shell\CopyPath\Command /ve /d "mshta vbscript:clipboarddata.setdata("""text""","""%%1""")(close)"
复制代码
不是那个意思,想用mshta 来改当前文件的文件名 根据剪切板中的内容

TOP

返回列表