从图片库中批量查找指定的图片并按自己的要求命名

最新推荐文章于 2025-05-15 08:02:11 发布

double294

最新推荐文章于 2025-05-15 08:02:11 发布

阅读量8.2k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： vb.net笔记文章标签： string function excel command callback shell

本文链接：https://blog.youkuaiyun.com/double294/article/details/1493686

使用VB程序，从包含身份证号命名的图片库中批量查找班级学生照片，通过读取EXCEL表格中的姓名和身份证信息，将图片重命名为学生姓名，并复制到目标文件夹。程序利用CMD命令进行文件复制并使用Shell函数执行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

晚上用VB写了一个导照片的程序，其问题如下：已知有一个图片库，图片库中的图片都以学生身份证命名，我想在这大量的图片库中找出自已班级学生的照片，然后以姓名命名，如果手动一个一个查找还要改名相当麻烦，就算使用WINDOWS系统自带的搜索功能，一次最多找到四个身份证的图片（不知是什么原因或许系统自带的搜索对输入查找字符有限制，因身份证很长所以只能找到少数的图片）。我的解决思路：首先自己创建一个EXCEL表格，一列放学生姓名，一列放学生身份证号，然后程序读取EXCEL的身份证单元格到图片库中查找，找到后COPY到目的地文件夹，COPY到目的文件夹的时候马上到EXCEL里查找该身份证对应的姓名，以姓名命名保存，程序从EXCEL第一行一直读到最后一行就完成了所有工作。其源码如下：

Dim source As String
Dim destination As String
Dim saveDir As String

Private Sub Command1_Click()
Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & source & ";Extended Properties='Excel 8.0;HDR=Yes'"
adoRecordset.Open "select * from [Sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic
While Not adoRecordset.EOF

Str1 = "CMD /c Copy " & destination