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

zhangop9

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

broly

什么系统的？WIN7的非administrateR 用户比XP处理起来要麻烦

zhangop9

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

1. Set objIE = CreateObject("InternetExplorer.Application")
   
2. objIE.Navigate("about:blank")
   
3. strText = objIE.document.parentwindow.clipboardData.GetData("text")
   
4. objIE.Quit
   
5. Wscript.Echo strText
   
6. 
   
7. Set objFile = CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\Users\Acer\Desktop\测试.vbs")
   
8. 
   
9. objFile.Write strText
   
10. objFile.Close
    

复制代码

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

broly

winxp系统就容易很多了。
使用步骤:
1.把下面的VBS保存为 d盘.vbs，然后右键->复制
2.运行->输入"sendto"->确定
3.在打开的文件夹中右键->粘贴快捷方式

这样右键->发送到  就会多了一个选项，使用即可

注意，如果要发送到以他地方，把VBS中的  "d:\" 改为你相应的目录即可，最后一定要有 \

1. '保存我为 d盘.vbs
   
2. Dim objArgs,fso,strText,fileName,extName,destPath
   
3. 
   
4. destPath = "d:" '发送到d:\
   
5. 
   
6. Set objArgs = WScript.Arguments
   
7. If objArgs.Count = 0 Then WScript.Quit
   
8. 
   
9. strText = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
   
10. 
    
11. '剪贴板的内容为空就退出
    
12. If strText = "" Then WScript.Quit
    
13. 
    
14. Set fso = CreateObject("SCripting.FileSystemObject")
    
15. 
    
16. If fso.FileExists(objArgs.Item(0)) Then
    
17.         extName = fso.GetExtensionName(objArgs.Item(0))
    
18.         If fso.FileExists(strText & "." & extName) Then
    
19.                 fileName = strText & "1." & extName
    
20.         Else
    
21.                 fileName = strText & "." & extName
    
22.         End If
    
23.         fso.CopyFile objArgs.Item(0),destPath & fileName
    
24. ElseIf fso.FolderExists(objArgs.Item(0)) Then
    
25.         If fso.FolderExists(strText) Then
    
26.                 fileName = strText & "1"
    
27.         Else
    
28.                 fileName = strText
    
29.         End If
    
30.         fso.CopyFolder objArgs.Item(0),destPath & fileName
    
31. End If
    
32. 
    
33. Set fso = Nothing
    
34. Set objArgs = Nothing

复制代码

zhangop9

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

broly

理解错误

1. Dim objArgs,fso,f,strText,fileName,extName
   
2. 
   
3. Set objArgs = WScript.Arguments
   
4. If objArgs.Count = 0 Then WScript.Quit
   
5. 
   
6. strText = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
   
7. 
   
8. '剪贴板的内容为空就退出
   
9. If strText = "" Then WScript.Quit
   
10. 
    
11. Set fso = CreateObject("SCripting.FileSystemObject")
    
12. 
    
13. If fso.FileExists(objArgs.Item(0)) Then
    
14.         extName = fso.GetExtensionName(objArgs.Item(0))
    
15.         If fso.FileExists(strText & "." & extName) Then
    
16.                 fileName = strText & "1." & extName
    
17.         Else
    
18.                 fileName = strText & "." & extName
    
19.         End If
    
20.         Set f = fso.GetFile(objArgs.Item(0))
    
21.         f.Name = fileName
    
22. ElseIf fso.FolderExists(objArgs.Item(0)) Then
    
23.         If fso.FolderExists(strText) Then
    
24.                 fileName = strText & "1"
    
25.         Else
    
26.                 fileName = strText
    
27.         End If
    
28.         Set f = fso.GetFolder(objArgs.Item(0))
    
29.         f.Name = fileName
    
30. End If
    
31. 
    
32. Set fso = Nothing
    
33. Set f = Nothing
    
34. Set objArgs = Nothing

复制代码

zhangop9

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