如何将U盘上含指定文本的Word文档自动复制到硬盘的指定文件夹中？

tangqingfu

请教如何通过Bat程序搜索U盘上的所有Word文档，将所有含“初级焊工”、“水平测试”等文本的Word文档自动复制到D盘的名为“筛选”的文件夹中？
这里所有的U盘盘符是动态，比如说在一台电脑上U盘是G盘，在别一台电脑上U盘可能是H盘

Batcher

http://www.bathome.net/thread-24641-1-1.html
我已经告诉你如何获取盘符、如何获取文件了，要不你先自己尝试写一下？
能否成功没关系，把你尝试写的代码贴出来看看，我帮你改。

terse

纯批的处理的话   主要难点在 Word文档里 搜索中文关键词

wuhengsi

3楼说的是。
但是如果是从文件名字来识别的就好做了。

tangqingfu

回复 3# terse

最好是能搜索中文和英文的，能否请terse兄帮忙编写？

apang

保存为test.vbs，需要安装有MicroSoft OFFICE软件
复制U盘上含 初级焊工 或者含 水平测试 的word文档到D:\筛选（如果是含 初级焊工 并且含 水平测试，将26行or改成and）
楼主没考虑文件重名的情况，如果有重名，则在文件名后依次加[1]、[2]等数字。试试看吧

1. DstDir = "D:\筛选"
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. If Not fso.FolderExists(DstDir) Then fso.CreateFolder(DstDir)
   
4. 
   
5. Set objWord=CreateObject("Word.Application")
   
6. Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\" _
   
7.     & ".\root\cimv2")
   
8. 
   
9. For Each Drv in fso.Drives
   
10.     If Drv.DriveType = 1 Then
    
11.         Set colFiles = objWMI.ExecQuery("Select * from CIM_DataFile " _
    
12.             & "where Drive = '"&Drv.Path&"' and Extension Like 'doc%'")
    
13.         For Each File in colFiles
    
14.             CopyDocFile File.Name
    
15.         Next
    
16.         Set colFiles = Nothing
    
17.     End If
    
18. Next
    
19. 
    
20. Sub CopyDocFile(f)
    
21.     n = 0
    
22.     Set objDoc = objWord.Documents.Open(f)
    
23.     str = objDoc.Range.Text
    
24.     objDoc.Saved = False : objDoc.Close
    
25.     Set objDoc = Nothing
    
26.     If InStr(str,"初级焊工") or InStr(str,"水平测试") Then
    
27.         Name = fso.GetBaseName(f) : NewName = Name
    
28.         Ext = "." & fso.GetExtensionName(f)
    
29.         While fso.FileExists(DstDir & "" & NewName & Ext)
    
30.             n = n + 1
    
31.             NewName = Name & "[" & n & "]"
    
32.         Wend
    
33.         fso.GetFile(f).Copy DstDir & "" & NewName & Ext
    
34.     End If
    
35. End Sub
    
36. 
    
37. Set objWMI = Nothing : objWord.Quit : Set objWord = Nothing
    
38. MsgBox "OK"

复制代码

修改一下

tangqingfu

回复 6# apang
谢谢，感觉速度偏慢了点。
不知还有没有更高效的办法？

CrLf

回复 7# tangqingfu


    搜文件内容本来就是强人所难，word的格式不是纯文本，还需要另行转换，别指望会快

tangqingfu

谢谢CrLf兄的提醒，只好作罢了

apang

现在的求代码者还真是牛XX
没人收你钱，不用拉倒，权当练习

tangqingfu

现在的求代码者还真是牛XX
没人收你钱，不用拉倒，权当练习
apang 发表于 2013-6-5 09:03

呵呵，apang兄误会了，原以为通过bat或vbs可以快速处理这类问题，后来才了解到处理Word这类文档没那么强大。代码已收藏学习，谢谢apang兄！