檔案內容快速查詢工具（快速搜尋電腦檔案的軟體）

   

執行過程演示

任務內容：

有個質保書檔案庫，經常要從裡面查詢各個工程對應要用到的質保書檔案。

任務難點：檔案庫裡面檔案多年積累已經達到一萬多個檔案，各專案的所用的質保書都不一樣並且數量也不少從幾十張到幾百張都有，人工查詢檔案一天下來手基本要殘廢了。

解決方案：

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），查詢的檔案一般是這幾種格式中的一種，所以這裡做了判斷，要是有其它格式也可以自己自行新增。

工具雖然很簡單，但對於那些經常要查詢很多檔案的人可以說是救命工具了。

要是對你有幫助，別忘了點贊收藏加關注。

作者介紹：專注辦公自動化，讓工作輕鬆起來