[编程实例]vbs修改桌面上的电子书.exe快捷方式为考研单词

 

1. 'vbs修改桌面上的电子书.exe快捷方式为考研单词
2. dim fso,file,name1,name2
4. name1="电子书.exe.lnk"
5. name2="考研单词"
7. Set WshShell = Wscript.CreateObject("Wscript.Shell")
8. strDesktop  = WshShell.SpecialFolders("Desktop")
10. Set fso=CreateObject("Scripting.FileSystemObject") 
11. Set fld=fso.GetFolder(strDesktop)
12. For Each file In fld.Files
13. name=fso.GetFileName(file)
14. If name=name1 Then 
15. file.name=name2&".lnk"
16. End If
17. Next