CLEAR =ADIR(afilea,"pict\*.JPG","A",0) && 从该文件夹导出文件到图片文件夹中 =ADIR(afileb,"图片\*.*") FOR i=1 TO ALEN(afilea,1) IF ASCAN(afileb,afilea[i,1])=0 &&在导入文件夹中搜索该文件<afilea[i,1]>是否存在 COPY FILE ("pict\"+afilea[i,1]) TO ("图片\"+afilea[i,1]) ENDIF ENDFOR
[此贴子已经被作者于2017-2-27 17:18编辑过]