通過(guò)vbs修改目錄名稱與快捷方式名稱的實(shí)現(xiàn)代碼

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