一键转移个人资料 v1.0 (build 2011.06.24)

gmy

一键转移个人资料 v1.0

    重装系统之后,我习惯在"一键GHOST备份系统"之前将个人资料永久转移到D盘,
目的很简单:避免"一键GHOST恢复系统"后,新近产生的个人资料丢失,另外,可以减小GHO体积。
个人资料包括：桌面、收藏夹、我的文档、共享文档、cookies,
本程序采用批处理方式制作，优点是：执行效率高、节省时间；开放源代码，便于分享、扩展与提高。

    希望大家试用并提出宝贵意见.
    有任何问题请 回复此贴，不要发新贴。

无忧论坛 DOS讨论区 版主 gmy 制作
2011.6.24

一键转移个人资料v1.0.bat 源代码

1. @echo off
   
2. cls
   
3. echo 欢迎使用 一键转移个人资料 v1.0
   
4. echo.
   
5. echo 转移的目标路径是
   
6. echo D:\桌面
   
7. echo D:\收藏夹
   
8. echo D:\我的文档
   
9. echo D:\共享文档
   
10. echo D:\我的文档\cookies
    
11. echo.
    
12. echo 按任意键开始转移。
    
13. pause >nul
    
14. if not exist d:\ goto end
    
15. md D:\桌面
    
16. md D:\收藏夹
    
17. md D:\我的文档
    
18. md D:\共享文档
    
19. md D:\我的文档\cookies
    
20. REM 默认路径
    
21. xcopy "C:\Documents and Settings\%USERNAME%\桌面\*.*" D:\桌面 /e /h /c /y
    
22. xcopy "%ALLUSERSPROFILE%\桌面\*.*" D:\桌面 /e /h /c /y
    
23. xcopy "C:\Documents and Settings\%USERNAME%\Favorites\*.*" D:\收藏夹 /e /h /c /y
    
24. xcopy "%ALLUSERSPROFILE%\Favorites\*.*" D:\收藏夹 /e /h /c /y
    
25. xcopy "C:\Documents and Settings\%USERNAME%\My Documents\*.*" D:\我的文档 /e /h /c /y
    
26. xcopy "%ALLUSERSPROFILE%\Documents\*.*" D:\共享文档 /e /h /c /y
    
27. xcopy "C:\Documents and Settings\%USERNAME%\cookies\*.*" D:\我的文档\cookies /e /h /c /y
    
28. REM 兼容其它优化程序设置的路径
    
29. xcopy "D:\My Documents\desktop\*.*" D:\桌面 /e /h /c /y
    
30. xcopy "D:\My Documents\桌面\*.*" D:\桌面 /e /h /c /y
    
31. xcopy "D:\desktop\*.*" D:\桌面 /e /h /c /y
    
32. xcopy "D:\My Documents\Favorites\*.*" D:\收藏夹 /e /h /c /y
    
33. xcopy "D:\My Documents\收藏夹\*.*" D:\收藏夹 /e /h /c /y
    
34. xcopy "D:\Favorites\*.*" D:\收藏夹 /e /h /c /y
    
35. xcopy "D:\My Documents\*.*" D:\我的文档 /e /h /c /y
    
36. xcopy "D:\My Documents\cookies\*.*" D:\我的文档\cookies /e /h /c /y
    
37. xcopy "D:\cookies\*.*" D:\我的文档\cookies /e /h /c /y
    
38. regedit /s newdir.reg
    
39. cls
    
40. echo 执行完毕，重启才能生效，请关闭正在使用的其它软件，按任意键将重启电脑。
    
41. pause >nul
    
42. shutdown -r
    
43. :end

复制代码

newdir.reg 源代码

1. Windows Registry Editor Version 5.00
   
2. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths]
   
3. "Administrator"="D:\\我的文档"
   
4. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders]
   
5. "Personal"="D:\\我的文档"
   
6. "CommonPictures"="D:\\我的文档\\My Pictures"
   
7. "CommonMusic"="D:\\我的文档\\My Music"
   
8. "CommonVideo"="D:\\我的文档\\My Videos"
   
9. "Common Favorites"="D:\\收藏夹"
   
10. "Common Desktop"="C:\\Documents and Settings\\All Users\\桌面"
    
11. "Common Documents"="D:\\共享文档"
    
12. [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders]
    
13. "Personal"="D:\\我的文档"
    
14. "My Pictures"="D:\\我的文档\\My Pictures"
    
15. "My Music"="D:\\我的文档\\My Music"
    
16. "My Video"="D:\\我的文档\\My Videos"
    
17. "Cookies"="D:\\我的文档\\Cookies"
    
18. "Favorites"="D:\\收藏夹"
    
19. "Desktop"="D:\\桌面"
    
20. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
    
21. "Personal"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,00,00
    
22. "CommonPictures"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,\
    
23.   00,20,00,50,00,69,00,63,00,74,00,75,00,72,00,65,00,73,00,00,00
    
24. "CommonMusic"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,00,\
    
25.   20,00,4d,00,75,00,73,00,69,00,63,00,00,00
    
26. "CommonVideo"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,00,\
    
27.   20,00,56,00,69,00,64,00,65,00,6f,00,73,00,00,00
    
28. "Common Favorites"=hex(2):44,00,3a,00,5c,00,36,65,cf,85,39,59,00,00
    
29. "Common Desktop"=hex(2):25,00,41,00,4c,00,4c,00,55,00,53,00,45,00,52,00,53,00,\
    
30.   50,00,52,00,4f,00,46,00,49,00,4c,00,45,00,25,00,5c,00,4c,68,62,97,00,00
    
31. "Common Documents"=hex(2):44,00,3a,00,5c,00,71,51,ab,4e,87,65,63,68,00,00
    
32. [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
    
33. "Personal"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,00,00
    
34. "My Pictures"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,\
    
35.   00,20,00,50,00,69,00,63,00,74,00,75,00,72,00,65,00,73,00,00,00
    
36. "My Music"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,00,\
    
37.   20,00,4d,00,75,00,73,00,69,00,63,00,00,00
    
38. "My Video"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,4d,00,79,00,\
    
39.   20,00,56,00,69,00,64,00,65,00,6f,00,73,00,00,00
    
40. "Cookies"=hex(2):44,00,3a,00,5c,00,11,62,84,76,87,65,63,68,5c,00,43,00,6f,00,\
    
41.   6f,00,6b,00,69,00,65,00,73,00,00,00
    
42. "Favorites"=hex(2):44,00,3a,00,5c,00,36,65,cf,85,39,59,00,00
    
43. "Desktop"=hex(2):44,00,3a,00,5c,00,4c,68,62,97,00,00

复制代码

下载地址见附件：



[ 本帖最后由 gmy 于 2011-6-24 16:08 编辑 ]

zjzaog

版主强大，强烈支持，下载了用先！

lhteee

好！！！
简洁高效！！！

fanghui

bat是转移个人资料的批处理，那么etnewdir.reg 又是什么作用？

sdshi

xp和win7都可以用么？

gmy

原帖由 sdshi 于 2011-6-25 10:06 发表
xp和win7都可以用么？

目前仅在XP下测试过。还得请有WIN7的网友们测试一下才能知道能否使用。我估计是通用的。

[ 本帖最后由 gmy 于 2011-6-25 14:26 编辑 ]

gmy

原帖由 fanghui 于 2011-6-24 23:39 发表
bat是转移个人资料的批处理，那么regedit /s newdir.reg 又是什么作用？

修改注册表啊！newdir.reg是我随便起的名字，意思为“新目录”，可以改成其它名字。

jiyuquan

DOS下和PE下都能使用吗？

还有如果是多账户呢？

讯极天度

批处理好啊！这样今后在封装系统的时候，就好玩点！

fanghui

原帖由 <i>gmy</i> 于 2011-6-25 14:24 发表 <a href="http://bbs.wuyou.net/redirect.php?goto=findpost&pid=2264353&ptid=195955" target="_blank"><img src="http://bbs.wuyou.net/images/common/back.gif" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {return true;} else {window.open(this.src);}" onmousewheel="return imgzoom(this);" alt="" /></a><br />

<br />

<br />
修改注册表啊！newdir.reg是我随便起的名字，意思为“新目录”，可以改成其它名字。

<br />
哦，重装系统之后指定个人资料目录的作用吧，如果只需要备份个人资料好像不需要用这个，不知道理解的对不对。

lxl1638

遇到这个就悲剧了。。。。

2010zihan

不支持win7的话基本没有前景。。。

135956

建议把这些文件夹都放入“我的文档”。

lafter

原帖由 135956 于 2011-6-27 08:01 发表
建议把这些文件夹都放入“我的文档”。

我也觉得把这些文件夹都放入一个目录比较好，清爽嘛
另外，这个批处理针对性太强，应该加强下，适应此类文件夹分布在不同分区或者路径下的情况。例如，在D盘搜索到其它此类文件夹后，应该由用户决定是否转移到默认的目录下。对C盘存在此类文件夹时要优先处理下，因为安装版的系统不在少数，其中就有人懒得动此类文件夹的

x9tian

什么都可以转移， 但我不主张把，cookies  , 桌面 转移。


  有些 流氓软件， 喜欢生成一些，垃圾快键到桌面，保存到D盘目录一点都不好。

hydn

这个很不错，正需要呢。

2011hty

楼主看起来不错 啊

sayhi1984

支持g版大大，是不是只能备份资料，装入系统后还能不能恢复原路径呢？

wbzzzzj

感谢分享！！！！！！！！

zcdyj

支持版主 如果做个DOS版的就更好了

tmdgdx

个人建议：尽量使用英文目录名，如“我的文档”改为“My Documents”，现在好多老外的游戏，存档文档在“我的文档”下，它不支持中文目录，也有一些特殊行业软件，如使用一些如JAVA的支持软件，对中文路径也支持不好，造成很多莫名其妙的问题……

小松鼠

建议:
1.支持win7

2.尽量使用英文目录名

3.这些目录放在一个目录.

4.可以选择性转移,有的目录不是必需的

pnzzs

那要怎么还原啊

ziyun

又一个精品。谢谢楼主，太谢谢了，支持

2011-cailin

简洁高效！！！强烈支持

fyqingshan

请教葛老大，win7下的~1文件夹是怎么建的呀，都是学易得，悄悄的告诉我

powertome

支持葛老大的作品，win732 bit试试

powertome

支持葛老大的作品，win732 bit试试

yjq635

贴个自己搞的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

2011pz

好东西,先收下了,谢谢分享!