中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

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