通過vbs修改目錄名稱與快捷方式名稱的實(shí)現(xiàn)代碼
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 "完成!"
相關(guān)文章
忽然想到要用VBS來代替BAT或CMD文件進(jìn)行命令集成，于是開始下苦工學(xué)習(xí)了一番！在網(wǎng)上找了好久終于找到東西。2008-06-06
vbs xmldom初次實(shí)戰(zhàn)獲取QQ簽名的代碼
用vbs+xmldom實(shí)現(xiàn)的獲取qq簽名的腳本2008-06-06
關(guān)于vbs 生成靜態(tài)頁面過程中出現(xiàn)的問題
訪問某個(gè)aspx頁面，然后把服務(wù)器返回的頁面以filestream 的形式保存為html格式,接下來將介紹實(shí)現(xiàn)代碼2012-12-12
在VBS最后加上以下語句即可刪除批處理和腳本本身（假設(shè)運(yùn)行的批處理為 run.cmd ，啟動(dòng)批處理的腳本為 run.vbs ）2008-08-08
VBS教程：運(yùn)算符-Not 運(yùn)算符...2006-11-11
用vbscript實(shí)現(xiàn)的修改服務(wù)器3389端口的代碼，比較方便使用，不用每次都要進(jìn)注冊(cè)表修改，方便大家2008-05-05
VBS教程：函數(shù)-CDate 函數(shù)...2006-11-11
如何用VBS腳本收集遠(yuǎn)程計(jì)算機(jī)或本地計(jì)算機(jī)安裝的軟件
這篇文章主要介紹了如何用VBS腳本收集遠(yuǎn)程計(jì)算機(jī)或本地計(jì)算機(jī)安裝的軟件,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2021-02-02
VBS教程：方法-FolderExists 方法...2006-11-11
VBS教程：VBScript 基礎(chǔ)-VBScript 常數(shù)
VBS教程：VBScript 基礎(chǔ)-VBScript 常數(shù)...2006-11-11