1976年贪婪的嘴唇,韩国少妇激三级做爰2023电影,久久久久久精品国产三级涨奶,妖精漫画在线观看免费漫画下拉式

這篇文章主要是分享了如果用vbs修改目錄名與快捷方式名稱(chēng)的代碼，需要的朋友可以參考下

代碼如下:

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\「開(kāi)始」菜單\程序"

newpath="C:\Documents and Settings\All Users\「開(kāi)始」菜單\程序\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 "完成!"