按照文件名称进行文件分类，这4个法子我挨个试了一遍

电脑用久了，文件夹里那堆东西真是看一眼就烦。上个月我想找一份两年前的合同扫描件，翻了大半天——明明记得文件名里有“2023”和“协议”几个字，可文件夹套文件夹，就是找不着。

后来我花了点时间，把文件按名称重新归了归类，前后试了四种法子。下面挨个说说。

百家号头图 ### 先说汇帮文件名提取器怎么操作

它的核心逻辑是：你给它一个关键词，它帮你在指定范围里把所有文件名带这个词的文件都拎出来，统一放到一个文件夹里。

第一步，打开汇帮文件名提取器，主界面上找到“文件提取”那个选项，点进去。

第二步，把你要处理的文件夹或者文件添加进去。支持批量添加，我那次一口气拖了十几个文件夹进去，也没见它卡顿。单个文件大小和总数量基本不用操心。

第三步，选提取方式。它给了三种：按类型、按名称、导入Excel。咱们要按文件名归类，那就选“按名称”。

第四步，在关键字那一栏输入你想要的文件名或者其中几个字。模糊搜索是支持的，比如你只记得文件名里有“报销”两个字，直接敲进去就行。输出目录默认在桌面新建一个文件夹，也可以自己指定路径。提取方式选复制还是剪切，看你还需不需要保留原文件。

第五步，点“开始提取”。

第六步，等它跑完。速度挺快，我那回大概一千多个文件，也就等了十来秒。打开输出目录，所有含关键字的文件整整齐齐躺在里面。

### 用Excel的VBA来搞，稍微折腾点

这个方法适合对代码不犯怵的朋友。原理是写一段VBA脚本，让Excel去读你列在A列的文件名，然后从源文件夹复制到目标文件夹。

先在Excel里把要提取的文件名输进去。

然后打开VBA编辑器，把下面这段代码贴进去。注意路径要改成你自己的：

Sub test()

Dim fso As Object

Dim path_fd_input As String Dim path_fd_output As String

Dim r_end_A As Long

path_fd_input = "C:\Users\85062\Desktop\新建文件夹\A" path_fd_output = "C:\Users\85062\Desktop\新建文件夹\B"

r_end_A = Cells(Rows.Count, "A").End(3).Row

Set fso = CreateObject("scripting.filesystemobject")

For R = 2 To r_end_A If fso.FileExists(path_fd_input & "" & Cells(R, "A").Value) Then fso.CopyFile path_fd_input & "" & Cells(R, "A").Value, path_fd_output & "" & Cells(R, "A").Value, True End If Next R

End Sub

执行之后，B文件夹里就会出现你指定的那些文件。

坦白讲，这个方法门槛不低。路径写错一个字符就报错，而且它只能精确匹配文件名，模糊搜索是指望不上的。好处是不用装额外软件——如果你电脑上正好有Excel的话。