asp做静态网站,做网站常用的技术有哪些,搜索引擎优化人员优化,塔城北京网站建设目录 任务介绍#xff1a;重命名规则修改前修改后 实现思路VB代码实现BUG犯罪现场#xff08;眼见不一定为实#xff09;破案1#xff1a;抓顶风作案的反贼#xff01;#xff01;#xff01;破案2#xff1a;破隐身抓刺客#xff01;#xff01;#xff01;杀器重命名规则修改前修改后 实现思路VB代码实现BUG犯罪现场眼见不一定为实破案1抓顶风作案的反贼破案2破隐身抓刺客杀器新建文件夹全部打印文件名对比文件名区别 Thumb.db是什么如何删除Thumbs.db 文件如何禁止Thumbs.db 文件 任务介绍
批量把多个文件夹的图片重名命名为对应表格的L列数据
重命名规则 修改前 修改后 实现思路
遍历工作表 填充字典字典记录 键值对信息 key-旧名称 value-新名称 分别对应每个表个A列和L列 遍历父文件夹下的子文件夹 匹配工作表名和子文件夹名 检查文件数量匹配 处理文件名和重命名 设置变量和文件夹路径 在代码中首先声明了各种变量如文件夹路径、工作簿、工作表、行数、旧文件名、新文件名等。给 folderPath 变量赋值为包含要处理文件的文件夹路径。 创建文件系统对象 使用 CreateObject(Scripting.FileSystemObject) 创建了文件系统对象 (fso)用于操作文件和文件夹。 遍历工作簿中的每个工作表 For Each ws In wb.Worksheets 循环遍历工作簿中的每个工作表。 填充字典 对于当前工作表通过 For 循环提取指定列的数据并存储到一个字典 dictSheet 中。其中键是文件名值是对应的新文件名。 遍历父文件夹下的子文件夹 For Each subFolder In folder.SubFolders 遍历父文件夹下的所有子文件夹。 匹配工作表名和子文件夹名 If subFolder.Name ws.Name Then 确保子文件夹的名称与当前工作表名匹配。 检查文件数量匹配 检查当前子文件夹内的文件数量是否与当前工作表中特定数据行数量匹配。 处理文件名和重命名 遍历当前子文件夹下的所有文件对每个文件的文件名进行处理。检查文件名是否存在于字典中如果存在则重命名文件将文件名更改为字典中对应的值。 重命名文件 使用文件系统对象的 Name 方法来重命名文件将旧文件名改为新文件名。 输出信息或调试消息 使用 Debug.Print 输出信息比如某个工作表文件数量不匹配的情况。
这段代码的主要逻辑是根据工作表中的数据匹配文件名并进行重命名。通过循环遍历每个工作表以及文件夹中的文件它自动将文件名更改为给定的值。
VB代码实现
Sub RenameImages()Dim folderPath As StringDim wb As WorkbookDim ws As WorksheetDim cureetSheetlastRow As LongDim i As LongDim oldName As String, newName As StringDim dictSheet As ObjectDim keyCell As Range, valueCell As RangeDim fso As ObjectDim folder As ObjectDim subFolder As ObjectDim file As ObjectDim fileCount As IntegerDim key As VariantDim value As Variant 设置文件夹路径folderPath C:\Users\Administrator\Desktop\Plasma 变色标签 修改为您的父文件夹路径Set fso CreateObject(Scripting.FileSystemObject)Set wb ThisWorkbookFor Each ws In wb.WorksheetscureetSheetlastRow ws.Cells(ws.Rows.Count, A).End(xlUp).RowSet dictSheet CreateObject(Scripting.Dictionary) 填充字典For i 5 To cureetSheetlastRowSet keyCell ws.Cells(i, A)Set valueCell ws.Cells(i, L)dictSheet(Trim(keyCell.value)) Trim(valueCell.value)Next iFor Each key In dictSheet.KeysDebug.Print Key: key , Value: dictSheet(key)Next key 遍历父文件夹下所有子文件夹Set folder fso.GetFolder(folderPath)For Each subFolder In folder.SubFolders 判断子文件夹名称是否为当前工作表名称If subFolder.Name 3.28 ThenDebug.Print subFolder.Files.CountFor Each file In subFolder.FilesDebug.Print file.PathNext fileEnd IfIf subFolder.Name ws.Name Then 获取子文件夹内文件数量fileCount subFolder.Files.Count - 1判断子文件文件数量是否等于currentSheetLast-4If fileCount (cureetSheetlastRow - 4) Then 遍历当前子文件夹下所有文件For Each file In subFolder.FilesoldName file.PathDim fileName As StringfileName fso.GetBaseName(file.Path) 获取文件名Debug.Print 正在处理文件: fileNameIf dictSheet.Exists(1) ThenMsgBox 存在1ElseMsgBox 不存在1End If 检查文件名是否在字典中并重命名文件If dictSheet.Exists(fileName) ThennewName dictSheet(fileName) .png 新的文件名为对应字典值 使用文件系统对象的 Name 方法来重命名文件fso.GetFile(oldName).Name dictSheet(fileName) .pngEnd IfNext fileElseDebug.Print ws.Name 文件数量 fileCount 表格数量 cureetSheetlastRow - 4End IfEnd IfNext subFolderNext ws
End Sub
BUG犯罪现场眼见不一定为实
代码中的防呆设计 子文件夹的文件数量要和Excel对应表格A列序号数量一致。 打印文件夹数量每次都比Excel的序号数量多一个或者二个特别奇怪
破案1抓顶风作案的反贼
图片为中图标查看的时候我没发现这个刺客
查看设置为列表 发现了不一样
破案2破隐身抓刺客
你以为查看设置了显示隐藏文件夹就稳了 不行滴年轻人
判断文件图片数量和表格A列序号的数量A5到最后一行总是文件的数量总是显示多一个全部打印出来发现是Thumb.db 就算在查看中设置把文件隐藏打开还是看不到这个文件但是打印文件夹文件名称会打印
杀器新建文件夹全部打印文件名对比文件名区别
新建一个文件夹复制3.28文件夹所有图片到新文件夹test打印两个文件夹目录下的文件名全部复制到Excel中对比发现原文件夹多了Thumbs.db!!! Thumb.db是什么
Thumbs.db 是Windows操作系统下的一个系统隐藏文件用于存储缩略图和预览图像的缓存信息。这个文件通常会在文件夹中出现当操作系统需要显示文件夹中的缩略图或预览图时会自动生成这个Thumbs.db文件来加快图像显示的速度。
下面是关于Thumbs.db文件的一些特点和信息 缓存信息Thumbs.db文件会存储与文件夹中的图片文件相关的缩略图信息这些缩略图可以帮助操作系统快速显示文件夹中的预览图像而不必重新生成缩略图。 隐藏文件Thumbs.db文件通常是一个系统隐藏文件在常规情况下用户是看不到这个文件的除非在Windows文件夹选项中选择显示隐藏文件和文件扩展名。 占用磁盘空间虽然Thumbs.db文件有助于加快图像预览的显示速度但有时会被用户视为占用磁盘空间的不必要文件。 删除注意在某些情况下用户可能选择手动删除Thumbs.db文件但系统会在需要时重新生成这些文件。可以通过更改Windows文件夹选项来禁用系统生成Thumbs.db文件但这可能会影响文件夹中的缩略图显示速度。
总的来说Thumbs.db文件是Windows系统用来缓存文件夹中缩略图信息的隐藏文件有助于提高文件夹图像显示的效率。
如何删除Thumbs.db 文件
1 当前目录下使用进入cmd 运行程序 del /f /s /q /a thumbs.db 2 遍历文件夹文件删除所以在获取需要处理的文件实际数量时可以先把文件名称打印出来查看是否存在Thumbs.db文件存在则删除删除后计数才比较准确
如何禁止Thumbs.db 文件
Win10系统禁止生成Thumbs.db缩略图缓存的方法 https://www.cnblogs.com/Music/p/hide-win10-thumbs-dot-db.html
