晚上用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