手机
当前位置:查字典教程网 >脚本专栏 >vbs >通过vbs修改目录名称与快捷方式名称的实现代码
通过vbs修改目录名称与快捷方式名称的实现代码
摘要:复制代码代码如下:setfso=wscript.createobject("scripting.filesystemobject")OldF...

复制代码 代码如下:

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 SettingsAll Users「开始」菜单程序"

newpath="C:Documents and SettingsAll Users「开始」菜单程序Peacemap Messenger"

deskpath="C:Documents and SettingsAll 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 "完成!"

【通过vbs修改目录名称与快捷方式名称的实现代码】相关文章:

用vbscript把 Word 文档保存为文本文件的代码

VBS通过WMI获取CPU使用率的代码

vbs 获取当前目录文件数量的代码(不包括子文件夹中的)

vbs正则表达式代码

用vbs实现删除名称中有撇号的文件夹

vbs中将GB2312转Unicode的代码

CMD和vbs修改 IP地址及DNS的实现代码

妙用VBScript自制IE工具栏按钮的代码

VBS和UAC用户帐户控制实现代码

vbscript 三个数比较大小的实现代码

精品推荐
分类导航