中国DOS联盟

系统资料备份及转移程序半成品，鉴于自己技术有限，所以发上来让有心人去完成。

大概流程：
1、检测目录位置；
2、检测是否有资料；排除 Desktop.ini 外的所有文件
3、复制备份到指定盘并打包（再配合生成的批处理进行改变后的路径恢复）；
4、修改各位置的注册表相关项的路径；

附件不能上传，只能贴了。

@echo off
title 系统资料备份及转移程序 1.0
echo 即将备份以下位置的系统资料

for /f "tokens=2*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Personal ^|findstr "Personal"') do @set MD=%%b
echo 我的文档 位置：%MD%

for /f "tokens=2*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Favorites ^|findstr "Favorites"') do @set F=%%b
if not exist "%F%\*.URL" set F=没有资料可备份
echo 收藏夹 位置：%F%

for /f "tokens=3*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "My Pictures" ^|findstr "Pictures"') do @set MP=%%b
if not exist "%MP%\*.JPG" if not exist "%MP%\*.BMP" if not exist "%MP%\*.GIF" if not exist "%MP%\*.PNG" set MP=没有资料可备份
echo 图片收藏 位置：%MP%

for /f "tokens=3*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "My Music" ^|findstr "Music"') do @set MM=%%b
if not exist "%MM%\*.MP3" if not exist "%MM%\*.WAV" if not exist "%MM%\*.WMA" set MM=没有资料可备份
echo 我的音乐 位置：%MM%

for /f "tokens=2*" %%a in ('REG QUERY "HKLM\SOFTWARE\Microsoft\Fax\Inbox" /v Folder 2^>nul^|findstr "Folder"') do @set I=%%b
if not exist "%I%\nul" set I=没有资料可备份
echo 接收传真 位置：%I%
for /f "tokens=2*" %%a in ('REG QUERY "HKLM\SOFTWARE\Microsoft\Fax\SentItems" /v Folder 2^>nul^|findstr "Folder"') do @set S=%%b
if not exist "%S%\nul" set S=没有资料可备份
echo 发送传真 位置：%S%

for /f "tokens=2 delims={}" %%a in ('REG QUERY HKCU\Identities /v "Default User ID"^|findstr /i "Default"') do @set OE=%UserProfile%\Local Settings\Application Data\Identities\{%%a}\Microsoft\Outlook Express
:: if not exist "%OE%\nul" set OE=没有资料可备份
echo OE邮件 位置：%OE%

for /f "tokens=2*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Cookies ^|findstr "Cookies"') do @set C=%%b
echo Cookies 位置：%C%

for /f "tokens=2*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Desktop ^|findstr "Desktop"') do @set D=%%b面
echo 桌面 位置：%D%

for /f "tokens=2*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v History ^|findstr "History"') do @set H=%%b
echo History 位置：%H%

for /f "tokens=2*" %%a in ('REG QUERY "HKCU\Environment" /v TEMP ^|findstr "TEMP"') do @set TE=%%b
echo TEMP 位置：%TE%
echo TEMP 位置：%TEMP%

for /f "tokens=2*" %%a in ('REG QUERY "HKCU\Environment" /v TMP ^|findstr "TMP"') do @set T=%%b
echo TMP 位置：%T%
echo TMP 位置：%TMP%

set /P OK=请输入转移的目的地：(例如：C:、D:、E:、F:...)

好 谢谢楼主