咦，一个下午解决了，不错哦！

学习中？是什么问题？请教

你完全复制代码
你都不看看你表中有没有zk字段

Create Cursor temp (缺失文件 c(30))

If Used("zp")
    Select zp
Else
    Use zp In 0
Endif
lcDir = 'H:\eee' && 存放照片的文件夹
lcToDir = 'H:\eee\aaa' &&目标目录，运行程序前确保该文件夹是空的
If !Directory(lcToDir)
    Md '&lcToDir.'
Endif

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

Go Top
Scan
    lcOldName = lcDir   + '\' + Alltrim(zp.zk) + '.jpg'
    lcToFile  = lcToDir + '\' + Alltrim(zp.zk) + '.jpg'
    lcNewName = lcToDir + '\' + Alltrim(zp.sf) + '.jpg'
    If File(lcOldName)
        Copy File '&lcOldName.' To '&lcToFile.' && 拷贝到其他目录
        Rename '&lcToFile.' To '&lcNewName.'
    Else
        Insert Into temp (缺失文件) Values (Alltrim(zp.zk))
    Endif
Endscan
Select temp
Browse

问个问题。在用宏替换“&”时，为什么要加一个“.”号。
Md '&lcToDir.'
Copy File '&lcOldName.' To '&lcToFile.' && 拷贝到其他目录
        Rename '&lcToFile.' To '&lcNewName.'

帮助文件上有，少问多看

呵呵。好

通过使用宏替换，可以用变量来替换名称。要使用宏替换，请在该变量之前放置一个连字符(&)以告诉 Visual FoxPro 要将变量值作为名称来使用，并使用一个句点(.)来结束宏替换表达式。

帮助文件这样说的。。明白了。
都怪记性不好，书没记牢。。忘了。。人老了啊。

当然有ZK字段了