足球游戏_中国足彩网￥体育资讯$

这篇文章主要是分享了如果用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 "完成!"