文件批量查找工具(超实用的一键快速查找文件工具)

文件批量查找工具(超实用的一键快速查找文件工具)(1)

运行过程演示

任务内容:

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

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

解决方案:

1.列出要查找的文件名

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

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

文件批量查找工具(超实用的一键快速查找文件工具)(2)

上代码:

'=============循环复制文件到指定位置=========== 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),查找的文件一般是这几种格式中的一种,所以这里做了判断,要是有其它格式也可以自己自行添加。

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

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

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

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页