批处理备份电脑中所有QQ记录到当前盘

@echo off&title DOS资源站 www.cmdos.net

::设置变量延迟
setlocal ENABLEDELAYEDEXPANSION

::获取当前盘符
for /f "tokens=1 delims=:\" %%i in ('dir ^|find "的目录"') do (set p=%%i)
::建立工作文件夹

if not exist %p%:\temp md %p%:\temp

::遍历H C D E F 盘搜索QQ聊天记录文件并储存于随机名称的文件夹中
for /f "tokens=*" %%i in ('dir /s /b h:\msgex.db c:\MsgEx.db d:\MsgEx.db e:\MsgEx.db

f:\MsgEx.db') do (
set l=%p%:\temp\!random:~2!
md !l!
cd /d !l!
echo "%%i">>hm.txt
copy "%%i" *.*)
echo 备份已经完成．按任意键退出！
pause>nul