通过vbs修改目录名称与快捷方式名称的实现代码_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\「开始」菜单\程序"
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 "完成!"

时间: 2024-09-28 07:41:55

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

通过vbs修改目录名称与快捷方式名称的实现代码

这篇文章主要是分享了如果用vbs修改目录名与快捷方式名称的代码,需要的朋友可以参考下   复制代码 代码如下: set fso=wscript.createobject("scripting.filesystemobject") OldFolderName1="263 Enterprise Messenger" newFolderName1="Peacemap Messenger" OldFileName1 = "263 Enterpr

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

问: 您好,脚本专家!我有一个脚本,我的帮助支持人员用它来创建用户帐户.不幸的是,有时这些帮助支持人员在忙乱中会键入类似这样的名称:kEn MYEr.如何将名称转换为正确的大小写(即 Ken Myer)呢? -- LC 答: 您好,LC.您知道吗:您真幸运.谈到正确行事,脚本专家通常便是您最不愿意找的人.事实上,就我们所知,只有一种情况例外,那便是将名称转换为正确的大小写,即,使名称中的首字母大写,而使其余字母小写.这一点我们还是可以办到的. 注意:嘿,每个人都得能够做点什么.尽管我们更希望能投

使用VBS访问外部文本文件一些方法和脚本实例代码_vbs

处理文件用到的常量有:ForReading = 1 ,ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加,都要在使用之前用VBS Const来声明.常用于处理文本文件的方法有:Read(var)-读var个字符,ReadLine-读一行,ReadAll-读整个文件内容,SkipLine-跳过本行指向下一行,Write(var)-把字符串var写入文件,WriteLine(var)-把字符串var和换行符写入文件,WriteBlankLines(n)-写入n个换行

用VBS检测U盘插入与弹出事件的代码_vbs

可以说,对WMI的掌握程度的多少直接决定了你的VBS水平高低.看过网上普遍流传VBS版U盘小偷程序,基本上都是靠无限循环实现的,一点技术含量也没有,文章的末尾给出了我写的VBS版U盘小偷程序的下载地址.虽然用WMI也得无限循环,但是效率是不一样的. 使用WMI的Win32_VolumeChangeEvent类就可以实现,下面是示例代码,更详细的信息请参考MSND文档. 复制代码 代码如下: Const Configuration_Changed = 1 Const Device_Arrival

利用vbs写的延时关闭ie进程的脚本代码_vbs

复制代码 代码如下: Delay = 5000 strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objStartup = objWMIService.Get("Win32_ProcessStartup"

VBS获取GZIP压缩的HTTP内容的实现代码_vbs

不少网站为了提高加载速度,启用HTTP服务器的GZIP压缩功能,当客户端发送的HTTP请求中声明可以接受GZIP编码时,服务器自动对HTTP响应内容进行GZIP压缩.但是,在VBS中想自动对GZIP编码进行解压就没有那么容易了. 不同组件对GZIP压缩的处理不尽相同,首先看Msxml2.XMLHTTP: 'By Demon 'http://demon.tw Dim http Set http = CreateObject("Msxml2.XMLHTTP") http.open &quo

VBS获取当前目录下所有文件夹名字的代码_vbs

VBS获取当前目录下所有文件夹名字,不包括子文件夹.我要给每个文件夹进行操作,所以最好用循环输出. 测试的时候要保证当前目录下有文件夹才可以,否则输出为空. 复制代码 代码如下: Set ws=WScript.CreateObject("wscript.shell")w=ws.CurrentDirectorySet fso=WScript.CreateObject("scripting.filesystemobject")Set fs=fso.GetFolder(w

用VBS设置静态IP和DNS服务器地址的代码_vbs

核心代码一: strIPAddress = Array("192.168.0.148") strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.0.1") strGatewayMetric = Array(1) arrDNSServers = Array("192.168.0.1","192.168.0.2") strCompu

VBS 显示“选择文件或文件夹”对话框的代码_vbs

一.显示"选择文件"的对话框 问: 嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,供用户选择文件使用? 答:您好.| 如果您使用的是 Windows 2000,我们不知道实现此操作的方法,至少操作系统中没有内置这样的方法. 但如果您使用的是 Windows XP,情况就不同了.在 Windows XP 上,您可以使用"UserAccounts.CommonDialog" 对象向用户显示一个标准的"文件打开"对