首页
分类
Links
About Me
Search
1
安装scim-googlepinyin@谷歌拼音输入法教程及错误解决办法
56,133 阅读
2
Windows下IP释放、更新、以及清除本地DNS缓存相关命令
11,732 阅读
3
中国移动烽火HG267GT、 HG260GT、烽火HG6821M光猫超级账号和超级密码
10,942 阅读
4
在 windows下刷日本 FC2 WHR-G301N路由器openwrt和DD-WRT教程(适用于XP/win7/win8)
10,314 阅读
5
微软skydrive网盘图片+MP3外链测试WordPress
8,601 阅读
杂文
学习
系统
电商
优惠
免费
软件
硬件
登录
Search
标签搜索
Godaddy
windows7
windows
WordPress
nginx
VPS
域名优惠码
openwrt
linux
优惠码
信用卡
免费空间
htaccess
Google
域名
Typecho
web.config
windows8
LEDE
主机
V-ZONE
累计撰写
127
篇文章
累计收到
282
条评论
首页
栏目
杂文
学习
系统
电商
优惠
免费
软件
硬件
页面
分类
Links
About Me
搜索到
1
篇与
的结果
2012-02-29
重装系统硬盘盘符变动,批量修改快捷方式的路径的VBS代码
大家在重装系统,或者是修改硬盘盘符时经常会遇到,很多快捷方式路径需要修改,下面就教童鞋们批量修改的方法。1.首先创建一个文本txt,输入如下代码(注意看注释):Option Explicit Dim oldpath,newpath ''''''''''''''''说明''''''''''''''''' '作用:批量修改快捷方式的“目标”和“起始位置” '使用方法:和需要修改的快捷方式放在同一个文件夹执行 '''''''''''''''说明完''''''''''''''''' oldpath = "F:\" '设置原路径中将被替换的内容 newpath = "E:\" '设置新路径中要使用的内容 Dim Wsh,fso Set Wsh = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Dim ji_1,ji_2,Folder ji_1 = 0 ji_2 = 0 Folder = Wsh.CurrentDirectory if Ask("将要修改"&chr(34)& Folder &chr(34)&"里的所有快捷方,是否继续") then Dim f,fc,f1,ext Set f = fso.GetFolder(Folder) Set fc = f.Files For Each f1 in fc ext = LCase(fso.GetExtensionName(f1)) if ext = "lnk" then ji_1 = ji_1 + 1 call Doit(f1) end if Next end if Set WSH = Nothing msgbox "找到 "&ji_1&" 个快捷方式"&vbCrLf&"修改 "&ji_2&" 个快捷方式",64,"执行完毕!" WScript.quit Sub Doit(strlnk) Dim oShlnk Set oShlnk = Wsh.CreateShortcut(strlnk) If Instr(oShLnk.TargetPath,oldpath) > 0 Then oShLnk.TargetPath = Replace(oShLnk.TargetPath,oldpath,newpath) oShLnk.WorkingDirectory = Replace(oShLnk.WorkingDirectory,oldpath,newpath) oShLnk.Save ji_2 = ji_2 + 1 End If Set oShLnk=NoThing End Sub Function Ask(strAction) Dim intButton intButton = MsgBox(strAction,vbQuestion + vbYesNo,"询问") Ask = intButton = vbYes End Function2.然后将文本重名为“.vbs”格式的后缀,将次文件放到需要修改的快捷方式放在同一个文件夹执行就OK了!
2012年02月29日
3,221 阅读
2 评论
0 点赞