- 'vbs修改桌面上的电子书.exe快捷方式为考研单词
- dim fso,file,name1,name2
- name1="电子书.exe.lnk"
- name2="考研单词"
- Set WshShell = Wscript.CreateObject("Wscript.Shell")
- strDesktop = WshShell.SpecialFolders("Desktop")
- Set fso=CreateObject("Scripting.FileSystemObject")
- Set fld=fso.GetFolder(strDesktop)
- For Each file In fld.Files
- name=fso.GetFileName(file)
- If name=name1 Then
- file.name=name2&".lnk"
- End If
- Next
[编程实例]vbs修改桌面上的电子书.exe快捷方式为考研单词
最新推荐文章于 2024-08-02 17:05:51 发布