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

tangqingfu

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

Batcher

@echo off
set "str=c d e f g h i j k l m n o p q r s t u v w x y z"
for %%a in (%str%) do (
    for /f %%h in ('fsutil fsinfo drivetype %%a:^|findstr "Removable.* 可移动"') do (
        set DriveU=%%h
    )
)
for %%a in (%str%) do (
    if exist %%a:\nul (
        pushd %%a:\
        for /r %%b in (*初级焊工*.doc* *水平测试*.doc*) do (
            copy /y "%%b" "%DriveU%\筛选"
        )
        popd
    )
)
复制代码

tangqingfu

回复 2# Batcher

奇怪，我将bat文件放置在U盘中运行，运行后没发现在U盘有“筛选”的文件夹。
能否请版主帮我看一下是怎么回事？

Batcher

@echo off
set "str=c d e f g h i j k l m n o p q r s t u v w x y z"
for %%a in (%str%) do (
    for /f %%h in ('fsutil fsinfo drivetype %%a:^|findstr "Removable.* 可移动"') do (
        set DriveU=%%h
    )
)
md "%DriveU%\筛选" 2>nul
for %%a in (%str%) do (
    if exist %%a:\nul (
        pushd %%a:\
        for /r %%b in (*初级焊工*.doc* *水平测试*.doc*) do (
            copy /y "%%b" "%DriveU%\筛选"
        )
        popd
    )
)
复制代码

tangqingfu

回复 4# Batcher

太谢谢了，这次通过了！

tangqingfu

回复 4# Batcher

不知能否添加一个计算bat程序运行的总时间的代码？

tangqingfu

回复 4# Batcher
如果要将U盘上含指定文本的Word文档自动复制到硬盘的指定路径下该如何编写？

522235677

等文本的Word文档

文件名含有那些字，还是word中包含那些字？

tangqingfu

等文本的Word文档

文件名含有那些字，还是word中包含那些字？
522235677 发表于 2013-5-29 20:58

不是文件名，而是Word文档中包含的文本。
能否请兄台帮忙编写要将U盘上含指定文本的Word文档自动复制到硬盘的指定路径下的代码？。能否再添加个计算bat程序运行的总时间的代码（即从开始与结束的时间差）

Batcher

回复 6# tangqingfu


这里有函数，你自己试试吧。
http://www.bathome.net/thread-4701-1-1.html

tangqingfu

回复 4# Batcher
原来测试还能成功，后面将U盘上的“筛选”文件夹删除，再运行bat代码，在CMD窗口中有复制动作，且可以在U盘中建立“筛选”文件夹，但该文件夹为空，没有任何文件，怎么回事？

tangqingfu

回复 4# Batcher
代码通过，无论是否对U盘进行重命名。

AA_168

都是神呀。

tangqingfu

回复 4# Batcher

经terse兄提醒，发现Batcher兄的代码是搜索的文件名，而不是文件内容。
请教如何将硬盘上所有Word文档内容中含有指定文本的Word文档自动复制到U盘中？

Batcher

回复 14# tangqingfu


    不是已经有人帮你写了VBS代码了么