【win10 文件夹数量和看到不一致查看隐藏文件已经打开，Thumb文件作妖】

任务介绍：

批量把多个文件夹的图片重名命名为对应表格的L列数据；

重命名规则

修改前

修改后

实现思路

遍历工作表
填充字典：字典记录 键值对信息： key-旧名称 value-新名称 （分别对应每个表个A列和L列）
遍历父文件夹下的子文件夹：
匹配工作表名和子文件夹名
检查文件数量匹配
处理文件名和重命名

1. 设置变量和文件夹路径：

   • 在代码中首先声明了各种变量，如文件夹路径、工作簿、工作表、行数、旧文件名、新文件名等。
   • 给 folderPath 变量赋值为包含要处理文件的文件夹路径。

2. 创建文件系统对象：

   • 使用 CreateObject("Scripting.FileSystemObject") 创建了文件系统对象 (fso)，用于操作文件和文件夹。

3. 遍历工作簿中的每个工作表：

   • For Each ws In wb.Worksheets 循环遍历工作簿中的每个工作表。

4. 填充字典：

   • 对于当前工作表，通过 For 循环，提取指定列的数据，并存储到一个字典 dictSheet 中。其中，键是文件名，值是对应的新文件名。

5. 遍历父文件夹下的子文件夹：

   • For Each subFolder In folder.SubFolders 遍历父文件夹下的所有子文件夹。

6. 匹配工作表名和子文件夹名：

   • If subFolder.Name = ws.Name Then 确保子文件夹的名称与当前工作表名匹配。

7. 检查文件数量匹配：

   • 检查当前子文件夹内的文件数量是否与当前工作表中特定数据行数量匹配。