我有一个文件夹：学生照片，里面存的是所有学生的照片，照片以准考证号（xh)命名，准考证号是12位的，比如070112325001
有一个DBF表（zp)，里面是部分学生的信息，字段包括姓名(xm)，准考证号(xh)，身份证号(sfzh)
现在我需要从照片文件夹里，提取DBF表里所有学生的照片，并以身份证号命名。
请部如何实现。。。。
本人以前从一个同事处得到一个程序。现在不能用了，部分文件损坏，而且他设计的也不是很合理。但是自己思来想去还是做不出来。故来求教。。。。

把图片文件名从准考证号换成身份证号，很容易的呀。

请版主帮个忙。给个思路嘛。如果弄不来再请你帮忙 。

对zp.dbf遍历，每一条记录寻找图片文件夹中与xh对应的图片文件是否存在，如果存在，则把文件名改名为该条记录中的sfzh，如果不存在自己考虑怎么处理。

嗯。思路是理解了。但是技术跟不上。对文件夹的照片进行改名，这一步不知道如何实现
真的很想当伸手党。。。。但又怕被BS。
我要下班了。如果版主有空。帮我弄个小程序如何？自己基础太差，加上又要得急，没心思慢慢去研究了。

文件改名就用rename指令。我下午要外出，你实在不行就晚上把数据给我吧。

谢谢。。先研究一下再说

这个....
思路已经很清楚了
就是个遍历改名问题

If Used("zp")
    Select zp
Else
    Use zp In 0
Endif
lcDir = 'H:\eee' && 存放照片的文件夹

*!*    sf = 身份证号
*!*    zk = 准考证号

Go Top
Scan
    lcOldName = lcDir + '\' + Alltrim(zp.zk) + '.jpg'
    lcNewName = lcDir + '\' + Alltrim(zp.sf) + '.jpg'
    If File(lcOldName)
        Rename '&lcOldName.' To '&lcNewName.'
    Endif
Endscan

缺点：如果文件夹中有图片文件名不在表中，则不能重命名

我需要将照片重命名并且复制到其他文件夹。原来的照片文件名不要改动。
请问如何实现？