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

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

你可能感兴趣的:([编程实例]vbs修改桌面上的电子书.exe快捷方式为考研单词)