文件内容快速查找工具（快速搜索电脑文件的软件）

   

运行过程演示

任务内容：

有个质保书文件库，经常要从里面查找各个工程对应要用到的质保书文件。

任务难点：文件库里面文件多年积累已经达到一万多个文件，各项目的所用的质保书都不一样并且数量也不少从几十张到几百张都有，人工查找文件一天下来手基本要残废了。

解决方案：

1.列出要查找的文件名

2.直接从文件库复制到指定文件夹

3.在列表标记已经找的文件

上代码：

'=============循环复制文件到指定位置===========
For rng = 2 To endL '工作表要查找的文件列表循环

  fileName = mSheet.Cells(rng, Index)
  souf = sourPath & fileName & ".pdf"
  desf = savePath & fileName & ".pdf"

  FileCopy souf, desf

  If IsFileExists(desf) = True Then '判断文件是否纯在
      mSheet.Cells(rng, Index).Interior.Color = 98535
      Else
      souf = sourPath & fileName & ".jpg"
      desf = savePath & fileName & ".jpg"
      FileCopy souf, desf
      If IsFileExists(desf) = True Then
          mSheet.Cells(rng, Index).Interior.Color = 98535
          Else
          souf = sourPath & fileName & ".png"
          desf = savePath & fileName & ".png"
          FileCopy souf, desf
          If IsFileExists(desf) = True Then
             mSheet.Cells(rng, Index).Interior.Color = 98535
          End If
      End If
  End If

Next
'=============判断文件是否存在===========
Function IsFileExists(ByVal strFileName As String) As Boolean
  If Dir(strFileName, 16) <> Empty Then
    IsFileExists = True
    Else
    IsFileExists = False
  End If
End Function

由于文件库存储的文件有三种格式（pdf，png，Jpg），查找的文件一般是这几种格式中的一种，所以这里做了判断，要是有其它格式也可以自己自行添加。

工具虽然很简单，但对于那些经常要查找很多文件的人可以说是救命工具了。

要是对你有帮助，别忘了点赞收藏加关注。

作者介绍：专注办公自动化，让工作轻松起来

赞 (0)

相关推荐

  • OPPO A3怎么快速查找系统设置、程序、文件？

    手机现在的功能越来越多,操作路径也发生了很大的变化,找一个功能设置就要花费好久的时间呢,怎么办? 下载的软件太多,自带的程序也多,每次找一个程序都要翻半天的桌面,好浪费时间,怎么办? 手机用久了,内部 ...

  • 如何使用PS内容识别填充工具快速去水印和杂物

    在PS中去水印和杂物,操作方法有多种,其中就有利用内容识别填充工具来去水印和杂物.下面,我来给大家介绍下如何使用PS内容识别填充工具快速去水印和杂物. 操作方法 01 启动PS后,进入到操作主界面中: ...

  • 如何搜索电脑文件

    如何搜索电脑文件

    电脑是现在最常用的工具之一,有些用户不知道如何搜索电脑文件,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步根据下图箭头所指,找到并双击[我的电脑]图标.2. 第二步打开[我的电脑 ...

  • pdf文件内容怎么复制，如何复制pdf文件内容

    pdf文件内容怎么复制,如何复制pdf文件内容.这个可真的是一个十分简单的问题,但有很多人问,那么我就来说下pdf文件内容怎么复制,如何复制pdf文件内容. 操作方法 01 点击打开我们电脑上的PDF ...

  • 电脑文件怎么显示后缀，怎么显示电脑文件后缀名

    电脑文件怎么显示后缀,怎么显示电脑文件后缀名.打开电脑桌面,看到电脑上的文件全都没有了后缀名,也不知道是格式的,那么如何恢复呢,下面我来说下电脑文件怎么显示后缀,怎么显示电脑文件后缀名 操作方法 01 ...

  • 如何快速查找微云里的文件？

    腾讯微云作为目前较为主流的网络存储工具,很多人将各种各样的文件保存在上面,不过上传的时候由于没有分组或者没有足够的时间给每个文件命名,导致以后一旦要从茫茫的文件里找到某一个特定的文件就会变的犹如大海捞 ...

  • 如何快速查找图片（找图片用什么软件好用）

    如何快速查找图片（找图片用什么软件好用）

    电脑中保存的太多的软件,如果每一个都双击打开,太浪费时间了,都是在重复一个动作,在这种情况下,用图片查看软件就可以帮到你啦,在软件中导入图片,可以很清晰的查看每一幅图片,甚至有的软件还支持鼠标滑动,下 ...

  • 强大的Win7开始搜索功能搜索电脑文件随搜随到

    场景：很多朋友想找电脑里的程序或者文件时，都是先打开Windows 7的计算机，或者在某个磁盘（如D盘）里才打开搜索页面。这样操作虽然没错，但如果有更快的方法你愿意尝试不？ 了解一下Windows 7 ...

  • WinRAR压缩文件中怎么查找包含特定字符串的文件?

    我们几乎都知道可用使用rar来搜索rar内部含有特定字符串的文件,但在非rar文件情况下,多层目录结构大量文件中怎么搜索包含特定字符串的文件呢,有很多种办法,这里介绍一种非常便捷的rar的巧用.尤其在 ...

  • PDF文件怎么快速查找所需内容

    PDF文件怎么快速查找所需内容 1.由于PDF文件和我们日常办公软件如word.wps等不同,因为PDF不支持自由的编辑.修改.调整.删除.查找等功能,但是如果我们又因工作需要对pdf内的文件内容进行 ...