上一篇
下一篇
VBS更改收藏夹路径的脚本
作者:刚子 日期:2009-11-18
我有个习惯，那就是把收藏夹放在非系统盘目录，这样可以防止意外情况导致C盘数据丢失。每次装完系统都需要手动打开注册表来修改收藏夹的位置，很是啰嗦。下午又刚装完系统，索性用VBS写个简单的脚本，方便以后使用。
把下面代码保存为X.VBS文件并运行即可看到效果。比较懒的
点击这里直接下载现成的文件使用。
程序代码
点击下载此文件
把下面代码保存为X.VBS文件并运行即可看到效果。比较懒的
点击这里直接下载现成的文件使用。 程序代码n=InputBox("请在下面输入收藏夹的路径"&vbCrLf&""&vbCrLf&"完整示例：D:\Favorites"&vbCrLf&""&vbCrLf&"By www.gangzi.org","VBS更改收藏夹路径","D:\我的文档\Favorites")
if n<>"" then
Set WshShell1 = WScript.CreateObject("WScr"&"ip"&"t.She"&"ll")
WshShell1.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites",""&n&""
msgbox "收藏夹路径已成功更新为："&n&""
end if
if n<>"" then
Set WshShell1 = WScript.CreateObject("WScr"&"ip"&"t.She"&"ll")
WshShell1.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites",""&n&""
msgbox "收藏夹路径已成功更新为："&n&""
end if
点击下载此文件
文章来自: 
引用通告: 
Tags: 评论: 1 | 引用: 0 | 查看次数: -
回复
szqing[2009-12-04 03:19 PM | 
]
发表评论