如果表中的准考证号,没有找到对应的照片。可否生成一个表或其他文件之类。存储下来。我好对应去查找原因。或手动复制改名。
我是来向高手学习的!
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