| 标题 | 通过vbs修改目录名称与快捷方式名称的实现代码 |
| 范文 | 这篇文章主要是分享了如果用vbs修改目录名与快捷方式名称的代码，需要的朋友可以参考下 代码如下: set fso=wscript.createobject("scripting.filesystemobject") OldFolderName1="263 Enterprise Messenger" newFolderName1="Peacemap Messenger" OldFileName1 = "263 Enterprise Messenger.lnk" newFileName1 = "Peacemap Messenger.lnk" OldFileName2 = "卸载 263 Enterprise Messenger.lnk" newFileName2 = "卸载 Peacemap Messenger.lnk" originalpath="C:\Documents and Settings\All Users\「开始」菜单\程序" newpath="C:\Documents and Settings\All Users\「开始」菜单\程序\Peacemap Messenger" deskpath="C:\Documents and Settings\All Users\桌面" if (fso.folderexists(originalpath & "\" & OldFolderName1)) then Set fsoGetFolder = fso.GetFolder(originalpath & "\" & OldFolderName1) fsoGetFolder.Name = newFolderName1 end if if fso.fileexists(newpath&"\"&OldFileName1 ) then set f=fso.getfile(newpath&"\"&OldFileName1) f.name=newFileName1 end if if fso.fileexists(newpath&"\"&OldFileName2 ) then set f=fso.getfile(newpath&"\"&OldFileName2) f.name=newFileName2 end if if fso.fileexists(deskpath&"\"&OldFileName1 ) then set f=fso.getfile(deskpath&"\"&OldFileName1) f.name=newFileName1 end if msgbox "完成!" |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。