中国DOS联盟

:ZDFZUPWJ
@echo off
mode con cols=40 lines=16 &color CF
title ☆ 复制移动硬盘文件 ☆
echo.
echo.
echo.
echo.
echo          是否复制移动硬盘的文件？  
echo.
echo          如不复制请立即关闭窗口，
echo.
echo          否则将在15秒后开始复制。
echo.
ping -n 15 127.0.0.1 >nul 2>nul
echo.
echo.
for %%i in (c d e f g h i j k l m n o p q r s t) do @fsutil fsinfo drivetype %%i:>>%tmp%\tempdriverinfo.txt
findstr /i "可移动驱动器" %tmp%\tempdriverinfo.txt >nul 2>nul
if errorlevel 1 echo    未发现移动设备 ！ 请按任意键继续　！ & pause >nul & del %tmp%\tempdriverinfo.txt & goto ZDFZUPWJ
findstr /i "可移动驱动器" %tmp%\tempdriverinfo.txt >%tmp%\tempdriverinfo2.txt
del %tmp%\tempdriverinfo.txt >nul 2>nul
for /f "tokens=1" %%i in (%tmp%\tempdriverinfo2.txt) do @set yidong=%%i
del %tmp%\tempdriverinfo2.txt >nul 2>nul
set srcDir="%yidong%\"
:::::::::::::::::::::::::::::::::::::::::::::::::::::::
cd %yidong%\自动复制 >nul 2>nul|| goto ZDYDBCXX
set dadate=%date:~0,4%年%date:~5,2%月%date:~8,2%日
FOR /F "tokens=1,2,3 delims=:. " %%i in ("%time%") do set now=%now%%%i点%%j分%%k秒
set webPrefix=自动复制记录：
echo.
echo 正在复制移动设备上的文件，请稍候 ...
xcopy %yidong%\自动复制\*.*  d:\视频文件\ /y /E /c /q>nul 2>nul
echo %yidong%\%webPrefix%%dadate%%now% >%yidong%\%webPrefix%%dadate%%now%.txt
dir /a-d /s %yidong%\自动复制\*.* >>%yidong%\%webPrefix%%dadate%%now%.txt
exit

:ZDYDBCXX
cls
echo.&echo.&echo.&echo.&echo.&
echo  未发现移动设备中存在"自动复制"的子目录!
echo.
echo          -=  请按任意键退出 =-            & pause >nul
exit

@echo off
set SrcDir=C:\test\自动复制
set DstDir=C:\test\视频文件
for /f "delims=" %%a in ('dir /s /b "%SrcDir%\*.*"') do (
  for %%b in ("%DstDir%\%%~nxa") do (
    if %%~za gtr %%~zb (
      copy /y "%%a" %%b
    )
  )
)

@echo off
rem 不会复制空文件夹,%yidong%为已经获知的磁盘目录.
set "SrcDir=%yidong%\自动复制"
set "DstDir=d:\视频文件"
for /f "delims=" %%a in ('dir /s /b "%SrcDir%\*.*"') do (
   call :copy_ "%%a"
)
goto :eof
:copy_
set "SrcPth=%~dp1"
set "SrcPth=%SrcPth:*自动复制\=%"
if not exist "%DstDir%\%SrcPth%" md "%DstDir%\%SrcPth%"
for %%b in ("%DstDir%\%SrcPth%%~nx1") do (
   if %~z1 gtr %%~zb (copy /y %1 "%DstDir%\%SrcPth%")
)