手机
当前位置:查字典教程网 >脚本专栏 >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修改目录名称与快捷方式名称的实现代码】相关文章:

vbs正则表达式代码

用vbs实现不死帐号的代码

使用vbscript脚本在表单中进行选择的代码

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

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

XorEncode的vbs实现代码

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

用vbs将名称转换为正确的大小写的代码

VBS合并一个文件夹里的TXT的实现代码

VBS监视网络连接与断开的代码

精品推荐
分类导航