玺是什么意思:一键转移个人资料 v1.0 (build 2011.06.24)

gmy 版主   发表于 2011-6-24 13:19
...............................................................................


一键转移个人资料 v1.0
重装系统之后,我习惯在"一键GHOST备份系统"之前将个人资料永久转移到D盘,
目的很简单:避免"一键GHOST恢复系统"后,新近产生的个人资料丢失,另外,可以减小GHO体积。
个人资料包括：桌面、收藏夹、我的文档、共享文档、cookies,
本程序采用批处理方式制作，优点是：执行效率高、节省时间；开放源代码，便于分享、扩展与提高。
希望大家试用并提出宝贵意见.
有任何问题请 回复此贴，不要发新贴。
无忧论坛 DOS讨论区 版主 gmy 制作
2011.6.24
一键转移个人资料v1.0.bat 源代码
CODE:                                                                                                  [Copy to clipboard][ - ]
---------------------------------------------------------------------------------------------------------------
@echo off
cls
echo 欢迎使用 一键转移个人资料 v1.0
echo.
echo 转移的目标路径是
echo D:\桌面
echo D:\收藏夹
echo D:\我的文档
echo D:\共享文档
echo D:\我的文档\cookies
echo.
echo 按任意键开始转移。
pause >nul
if not exist d:\ goto end
md D:\桌面
md D:\收藏夹
md D:\我的文档
md D:\共享文档
md D:\我的文档\cookies
REM 默认路径
xcopy "C:\Documents and Settings\%USERNAME%\桌面\*.*" D:\桌面 /e /h /c /y
xcopy "%ALLUSERSPROFILE%\桌面\*.*" D:\桌面 /e /h /c /y
xcopy "C:\Documents and Settings\%USERNAME%\Favorites\*.*" D:\收藏夹 /e /h /c /y
xcopy "%ALLUSERSPROFILE%\Favorites\*.*" D:\收藏夹 /e /h /c /y
xcopy "C:\Documents and Settings\%USERNAME%\My Documents\*.*" D:\我的文档 /e /h /c /y
xcopy "%ALLUSERSPROFILE%\Documents\*.*" D:\共享文档 /e /h /c /y
xcopy "C:\Documents and Settings\%USERNAME%\cookies\*.*" D:\我的文档\cookies /e /h /c /y
REM 兼容其它优化程序设置的路径
xcopy "D:\My Documents\desktop\*.*" D:\桌面 /e /h /c /y
xcopy "D:\My Documents\桌面\*.*" D:\桌面 /e /h /c /y
xcopy "D:\desktop\*.*" D:\桌面 /e /h /c /y
xcopy "D:\My Documents\Favorites\*.*" D:\收藏夹 /e /h /c /y
xcopy "D:\My Documents\收藏夹\*.*" D:\收藏夹 /e /h /c /y
xcopy "D:\Favorites\*.*" D:\收藏夹 /e /h /c /y
xcopy "D:\My Documents\*.*" D:\我的文档 /e /h /c /y
xcopy "D:\My Documents\cookies\*.*" D:\我的文档\cookies /e /h /c /y
xcopy "D:\cookies\*.*" D:\我的文档\cookies /e /h /c /y
regedit /s newdir.reg
cls
echo 执行完毕，重启才能生效，请关闭正在使用的其它软件，按任意键将重启电脑。
pause >nul
shutdown -r
:end
newdir.reg 源代码
CODE:                                                                                                          [Copy to clipboard][ - ]
-------------------------------------------------------------------------------------------------
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths]
"Administrator"="D:\\我的文档"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders]
"Personal"="D:\\我的文档"
"CommonPictures"="D:\\我的文档\\My Pictures"
"CommonMusic"="D:\\我的文档\\My Music"
"CommonVideo"="D:\\我的文档\\My Videos"
"Common Favorites"="D:\\收藏夹"
"Common Desktop"="C:\\Documents and Settings\\All Users\\桌面"
"Common Documents"="D:\\共享文档"
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders]
"Personal"="D:\\我的文档"
"My Pictures"="D:\\我的文档\\My Pictures"
"My Music"="D:\\我的文档\\My Music"
"My Video"="D:\\我的文档\\My Videos"
"Cookies"="D:\\我的文档\\Cookies"
"Favorites"="D:\\收藏夹"
"Desktop"="D:\\桌面"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
"Personal"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,00,00
"CommonPictures"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,\
00,20,00,50,00,69,00,63,00,74,00,75,00,72,00,65,00,73,00,00,00
"CommonMusic"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,00,\
20,00,4d,00,75,00,73,00,69,00,63,00,00,00
"CommonVideo"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,00,\
20,00,56,00,69,00,64,00,65,00,6f,00,73,00,00,00
"Common Favorites"=hex(2):44,00,3a,00,5c,00,36,65,cf,85,39,59,00,00
"Common Desktop"=hex(2):25,00,41,00,4c,00,4c,00,55,00,53,00,45,00,52,00,53,00,\
50,00,52,00,4f,00,46,00,49,00,4c,00,45,00,25,00,5c,00,4c,68,62,97,00,00
"Common Documents"=hex(2):44,00,3a,00,5c,00,71,51,ab,4e,87,65,63,68,00,00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
"Personal"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,00,00
"My Pictures"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,\
00,20,00,50,00,69,00,63,00,74,00,75,00,72,00,65,00,73,00,00,00
"My Music"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,00,\
20,00,4d,00,75,00,73,00,69,00,63,00,00,00
"My Video"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,00,\
20,00,56,00,69,00,64,00,65,00,6f,00,73,00,00,00
"Cookies"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,43,00,6f,00,\
6f,00,6b,00,69,00,65,00,73,00,00,00
"Favorites"=hex(2):44,00,3a,00,5c,00,36,65,cf,85,39,59,00,00
"Desktop"=hex(2):44,00,3a,00,5c,00,4c,68,62,97,00,00
下载地址见附件：
[ 本帖最后由 gmy 于 2011-6-24 16:08 编辑 ]
附件
1KEY_MOVE.rar (1.97 KB) 一键转移个人资料_20110624
2011-6-24 13:19   下载次数: 762
-----------------------------------------------------------------------------------------------
xp和win7都可以用么？
gmy 版主    目前仅在XP下测试过。还得请有WIN7的网友们测试一下才能知道能否使用。我估计是通用的。
................................
bat是转移个人资料的批处理，那么regedit /s newdir.reg 又是什么作用？
gmy 版主    修改注册表啊！newdir.reg是我随便起的名字，意思为“新目录”，可以改成其它名字
...................................
建议把这些文件夹都放入“我的文档”。
......................................
我也觉得把这些文件夹都放入一个目录比较好，清爽嘛
另外，这个批处理针对性太强，应该加强下，适应此类文件夹分布在不同分区或者路径下的情况。例如，在D盘搜索到其它此类文件夹后，应该由用户决定是否转移到默认的目录下。对C盘存在此类文件夹时要优先处理下，因为安装版的系统不在少数，其中就有人懒得动此类文件夹的
.......................................
个人建议：尽量使用英文目录名，如“我的文档”改为“My Documents”，现在好多老外的游戏，存档文档在“我的文档”下，它不支持中文目录，也有一些特殊行业软件，如使用一些如JAVA的支持软件，对中文路径也支持不好，造成很多莫名其妙的问题……
....................................
建议:
1.支持win7
2.尽量使用英文目录名
3.这些目录放在一个目录.
4.可以选择性转移,有的目录不是必需的
.............................
贴个自己搞的VBS版本 修改桌面位置，可以自己选择位置，刷新桌面位置没搞定，重启explorer时有点问题，可以手动重启explorer生效
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Dim WshSHell
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
Set FSO = CreateObject("Scripting.FileSystemObject")
InsTitle = "移动桌面到"
intAnswer = MsgBox("【是】 “" + InsTitle + "”" &Chr(10)&Chr(10)&"【否】我点错了，请退出 “" + InsTitle+ "”" , vbQuestion + vbYesNoCancel, "安装 - "+ InsTitle +" - "+ Copyright)
If intAnswer = vbYes Then
strPath = objFolderItem.Path
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "请选择新的桌面位置:", OPTIONS, strPath)
If objFolder Is Nothing Then
Wscript.Quit
End If
Set objFolderItem = objFolder.Self
newpath = objFolderItem.Path
oldpath = WshSHell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Desktop")
WshSHell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Desktop",newpath ,"REG_EXPAND_SZ"
'WshSHell.Run "taskkill -f -im explorer.exe",0,True
'WshSHell.Run "explorer.exe"
FSO.CopyFolder oldpath , newpath
Wscript.Echo "您的桌面新的位置：" + newpath
end if
If intAnswer = vbNo Then
Wscript.Quit
End If
.......................................................
希望楼主能改进下：
我想仅将：我的文档、桌面、收藏夹 这三个东东全部移动到D:\我的文档中，这样D盘文件夹不会太多，太乱，容易管理，其它的Cookies和共享文档，可以在批处理中设置成Y/N的提示根据需要选择是否移动，而不是像现在这样，默认全部移动。
.............................................
又请教一下楼主，是否将*bat文件内的 C:  D: 文字互调便可得到还原的效果。
及删改一些不想执行的，是否将*bat文件内的相关 D: 项删掉就行？谢谢！
...............................................