通过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 "完成!"

赞 (0)

相关推荐

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

    复制代码 代码如下: set fso=wscript.createobject("scripting.filesystemobject") OldFolderName1="263 Enterprise Messenger"newFolderName1="Peacemap Messenger"OldFileName1 = "263 Enterprise Messenger.lnk"newFileName1 = "Pea

  • idea 修改项目名和module名称的操作

    idea 修改项目名和module名称的操作

    也许是强迫症,自己的项目总喜欢修改项目名,那彻底修改项目名需要的步骤如下: 1,修改文件夹名称 如果是 github 项目,则修改repository name 再 down 下来,文件夹名称就会变成修改后的名称. 2,修改module的名称 项目右键修改  这样就可以修改module 的名称了. 3,修改project 的名称 修改完文件夹的名称 ,module 的名称 发现左上角还是以前的 项目名,恩,还需要再修改一下, 点击 File -> Project Structrue 进入如图项目

  • 用VBS修改（设置）系统时间和日期的代码

    那天跟别人聊到 Y2K38 问题,于是想到一个恶作剧:用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后,这样某些依赖于 Unix 时间戳的程序就会出问题.那么怎样用 VBS 修改系统的时间呢? 最简单也是最没有技术含量的方法就是调用 cmd 的 date 和 time 命令: 复制代码 代码如下: 'Author: Demon 'Website: http://demon.tw 'Date : 2011/4/27 Dim WshShell Set WshShell = Cr

  • 用VBS修改远程桌面3389端口并添加到Windows防火墙的代码

    将下面代码存为.vbs,双击运行.然后重启一下系统,就修改了系统的远程桌面的默认的3389端口 '##################### 'VBS修改远程桌面的默认端口,并添加至Windows防火墙 '作者51windows.Net '56868为要设置的端口 '##################### Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKEY_LOCAL_M

  • python检查目录文件权限并修改目录文件权限的操作

    我就废话不多说了,还是直接看代码吧! # -*- coding: utf-8 -*- # @author flynetcn import sys, os, pwd, stat, datetime; LOG_FILE = '/var/log/checkDirPermission.log'; nginxWritableDirs = [ '/var/log/nginx', '/usr/local/www/var', ]; otherReadableDirs = [ '/var/log/nginx',

  • Python3通过chmod修改目录或文件权限的方法示例

    简单的介绍下linux文件权限 linux中,文件的权限分为"所有者.组.其他用户"三个角色,每个角色由3个bit位表示它的权限,3bit从左到右分别为读写执行三个权限,3bit的值范围为0~7.所以如果直接在linux执行chmod 777 xxx.sh代表,将xxx.sh文件赋予所有者.组.其他用户这三个角色对xxx.sh文件的读写执行权限. os的chmod python的os模块负责操作系统层面的操作.修改文件权限可以通过os的chmod方法来操作. os.chmod(path

  • 批量转换目录下文件编码的shell脚本代码

    一例批量转换目录下文件编码的shell脚本代码. 需求描述:由于从window转linux过来,很多原来win下的gbk文件需要转换成utf8. 以下脚本仅判断非utf8文件转换成utf8文件,并且默认非utf8文件为gbk,如果文件类型不一致需要修改. 例子: 复制代码 代码如下: #!/bin/bash# File Name: iconv.sh# Author: wanggy# site: www.jb51.net#show_file(){    for file in `ls $1`   

  • asp修改文件和文件夹的名字的代码

    修改文件的名字 使用"FileSystemObject(文件系统对象)"的GetFile函数得到一个"文件对象",然后修改这个"文件对象"的name属性 复制代码 代码如下: set fso=Server.CreateObject("Scripting.FileSystemObject") set file=fso.GetFile(Server.MapPath("/folder/old_name.asp")

  • 修改 bootstrap table 默认detailRow样式的实例代码

    废话不多说了,直接给大家贴代码,具体代码如下所示: this.$body.find('> tr[data-index] > td > .detail-icon').off('click').on('click', function () { var $this = $(this), //a.detail-icon $tr = $this.parent().parent(), //current row index = $tr.data('index'), row = data[index

  • python ftp 按目录结构上传下载的实现代码

    具体代码如下所示: #!/usr/bin/python # coding=utf-8 from ftplib import FTP import time import os def __ftp_upload(ftp,local,remote,isDel=False): if os.path.isdir(local): for f in os.listdir(local): if os.path.isdir(local+f): try: ftp.cwd(remote+f) except: ftp

随机推荐