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

        晚上用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$]", adoCon