Board logo

标题: [问题求助] 根据剪切板内容重命名当前文件,能用一行mshta代码搞定吗？ [打印本页]
作者: zhangop9    时间: 2012-1-17 16:18     标题: 根据剪切板内容重命名当前文件,能用一行mshta代码搞定吗？

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

根据剪切板内容重命名当前文件,能用一行mshta代码搞定吗？
想达到的效果：http://bbs.bathome.net/thread-14771-1-2.html
想加入注册表中，如这样
  1. REGEDIT4

  2. 

  3. [HKEY_CLASSES_ROOT\.bat\ShellNew]

  4. "command"="mshta vbscript:Execute(\"CreateObject(\"\"Scripting.FileSystemObject\"\").OpenTextFile(\"\"%2\"\",2,true).Write(clipboardData.getData(\"\"text\"\")):close\")"

  5. [HKEY_CLASSES_ROOT\.reg\ShellNew]

  6. "command"="mshta vbscript:Execute(\"CreateObject(\"\"Scripting.FileSystemObject\"\").OpenTextFile(\"\"%2\"\",2,true).Write(clipboardData.getData(\"\"text\"\")):close\")"

  7. [HKEY_CLASSES_ROOT\.vbs\ShellNew]

  8. "command"="mshta vbscript:Execute(\"CreateObject(\"\"Scripting.FileSystemObject\"\").OpenTextFile(\"\"%2\"\",2,true).Write(clipboardData.getData(\"\"text\"\")):close\")"
复制代码
vista下无法运行vbs文件。
作者: samsinn    时间: 2012-1-18 17:55

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

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



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2