批处理能否自动提取优盘上的word文档？

wuhengsi

我改天写帮你写个代码吧
现在因为没有时间。。。。
QQ316891946  请楼主提醒。。。。。

water0

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

broly

1. '//VBS复制U盘Doc文件 @CODE BY Broly
   
2. '//声明：此VBS由Broly制作,代码仅作学习研究之用。使用前请三思而行，产生不良后果均与本人无关！
   
3. Const DocPath="D:\DocPath" '此处为你放DOC文件的文件夹，运行前请创建好
   
4. Dim fso,Disks
   
5. Set fso = CreateObject("Scripting.FileSystemObject")
   
6. Do
   
7.   n=n+1
   
8.   Set Disks = fso.Drives
   
9.   For Each Disk In Disks
   
10.     If Disk.IsReady And Disk.DriveType = 1 Then
    
11.       Udisk=Disk.DriveLetter & ":"
    
12.       U=True
    
13.     End if
    
14.   Next
    
15.   If U=True Then
    
16.     CopyDocs(Udisk)
    
17.   Else
    
18.     If n=1 Then
    
19.       Msgbox "没有发现U盘或者U盘没有插好!",vbOkOnly,"提示"
    
20.     End if
    
21.   End If
    
22.   WScript.Sleep 30000  '每30秒循环一次
    
23. Loop
    
24. Sub CopyDocs(path)
    
25.   Dim folder,subfolders,Files
    
26.   Set folder = fso.getfolder(path)
    
27.   Set subfolders = folder.subfolders
    
28.   Set Files = folder.Files
    
29.   For Each File In Files
    
30.     If fso.GetExtensionName(File.path)="doc" Then
    
31.       fso.CopyFile File.Path,DocPath,True '设置为True，表示如果文件存在则覆盖
    
32.     End if
    
33.   Next
    
34.   For Each subfolder In subfolders
    
35.       CopyDocs(subfolder.path) '递归查找子目录
    
36.   Next
    
37. End Sub

复制代码

water0

有时候会出现这样的情况，程序可以运行

yedu

。。。学习一下

tangqingfu

谢谢分享，收藏！