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

zhangop9

根据剪切板内容重命名当前文件,能用一行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

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

zhangop9

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

复制代码

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