Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1371912
  • 博文数量: 236
  • 博客积分: 4966
  • 博客等级: 上校
  • 技术积分: 3342
  • 用 户 组: 普通用户
  • 注册时间: 2006-11-13 01:03
文章分类

全部博文(236)

文章存档

2017年(2)

2016年(1)

2015年(8)

2014年(11)

2013年(45)

2012年(27)

2011年(22)

2010年(31)

2009年(37)

2008年(6)

2007年(45)

2006年(1)

分类:

2010-04-20 08:38:19

' *****************************************************************************
' TEST SCRIPT - movefavorite.vbs
' *****************************************************************************
'  作用: 修改并移动用户收藏夹路径
'  作者: brinkman
'  日期: 11:21 2010-04-16
'  Copyright (c) SunWill
' *****************************************************************************
Option Explicit
'取得当前用户名称
Dim username
username=CreateObject("Wscript.Shell").ExpandEnvironmentStrings("%username%")
'定义收藏夹根位置
Dim sPath
sPath="D:\SunWill\"&username&"\Favorites"
'修改注册表中收藏夹位置
Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
OperationRegistry.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites",sPath,"REG_EXPAND_SZ"
'移动收藏夹位置
On Error Resume Next
Const OverwriteExisting = True
Dim WshSysEnv,UserProfilePath,objFSO
set WshSysEnv = CreateObject("Wscript.Shell").Environment("PROCESS")
UserProfilePath = WshSysEnv("userprofile")
set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder sPath
objFSO.CopyFile UserProfilePath & "\Favorites\*" , sPath&"\", OverwriteExisting
objFSO.CopyFolder UserProfilePath & "\Favorites\*" , sPath&"\", OverwriteExisting
 
阅读(811) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册