[问题求助] [已解决]在文件或文件夹上右键后，发送到，根据剪切板内容重命名当前文件。

zhangop9

在文件或文件夹上右键后，发送到，根据剪切板内容重命名当前文件。

zhangop9

winxp系统，如果能改一下如下代码就好了

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strText = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
Wscript.Echo strText

Set objFile = CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\Users\Acer\Desktop\测试.vbs")

objFile.Write strText
objFile.Close
复制代码

1、如果桌面能用环境变量就好了，
2、如果桌面上有同名文件就在文件名后加1“测试1.vbs”

zhangop9

可以用，不过好像不是我想要了，我是想用剪切板内容改当前文件名称，这个vbs新建了一个文件

zhangop9

ok,行了，谢谢，帖子中那个问题我自己东搞搞西搞搞，搞出来了，谢谢你版主