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

zhangop9

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

REGEDIT4

[HKEY_CLASSES_ROOT\.bat\ShellNew]
"command"="mshta vbscript:Execute(\"CreateObject(\"\"Scripting.FileSystemObject\"\").OpenTextFile(\"\"%2\"\",2,true).Write(clipboardData.getData(\"\"text\"\")):close\")"
[HKEY_CLASSES_ROOT\.reg\ShellNew]
"command"="mshta vbscript:Execute(\"CreateObject(\"\"Scripting.FileSystemObject\"\").OpenTextFile(\"\"%2\"\",2,true).Write(clipboardData.getData(\"\"text\"\")):close\")"
[HKEY_CLASSES_ROOT\.vbs\ShellNew]
"command"="mshta vbscript:Execute(\"CreateObject(\"\"Scripting.FileSystemObject\"\").OpenTextFile(\"\"%2\"\",2,true).Write(clipboardData.getData(\"\"text\"\")):close\")"
复制代码

vista下无法运行vbs文件。

samsinn

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

zhangop9

reg add HKCR\*\shell\CopyPath\Command /ve /d "mshta vbscript:clipboarddata.setdata("""text""","""%%1""")(close)"
复制代码

不是那个意思,想用mshta 来改当前文件的文件名 根据剪切板中的内容