vf写的检索照片程序

检索照片程序,vf编写,源码sele a use 2006sslq go top do while .not. eof() tmpkh=a.zp pic=alltr(tmpkh) if file(pic) copy file &pic to F:\硕士复试\2006\录取\lqpic else repl bz with '缺照片' endif skip enddo use