请教，如何实现：

（1）“d:\photo”文件夹中存放1000个图片文件，如何实现修改文件名，文件名只保留原文件名的第8到15位字符，修改后复制到另一个文件夹。
（2）“xx.dbf”中有两个字段，ksbh和xh，假如“d:\photo”文件夹中存放的1000个图片文件是以ksbh字段命名的，怎么对应将图片文件名修改为xh字段，修改后将图片复制到另一个文件夹。

  谢谢！

（1）“d:\photo”文件夹中存放1000个图片文件，如何实现修改文件名，文件名只保留原文件名的第8到15位字符，修改后复制到另一个文件夹。

=ADIR(AJPG,[*.JPG])
FOR I=1 TO ALEN(AJPG,1)
    COPY FILE AJPG(I,1) TO [D:\PHOTO1\]+SUBSTR(JUSTSTEM(AJPG(I,1)),8,8)+[.JPG]
ENDFOR

（2）“xx.dbf”中有两个字段，ksbh和xh，假如“d:\photo”文件夹中存放的1000个图片文件是以ksbh字段命名的，怎么对应将图片文件名修改为xh字段，修改后将图片复制到另一个文件夹。

CLOSE TABLES
USE XX
SCAN
   COPY FILE ALLTRIM(KSBH)+[.JPG] TO [D:\PHOTO1\]+STRTRAN(ALLTRIM(KSBH),ALLTRIM(KSBH),ALLTRIM(XH))+[.JPG]
ENDSCAN

[ 本帖最后由 sdta 于 2013-6-15 12:55 编辑 ]

谢谢，如果没有找到图片，能否在XX.DBF中bz字段注明

CLOSE TABLES
USE XX
SCAN
   IF FILE(ALLTRIM(KSBH)+[.JPG])
      COPY FILE ALLTRIM(KSBH)+[.JPG] TO [D:\PHOTO1\]+STRTRAN(ALLTRIM(KSBH),ALLTRIM(KSBH),ALLTRIM(XH))+[.JPG]
   ELSE
      REPLACE BZ WITH [文件不存在]
   ENDIF
ENDSCAN

rename filename1 to filename2

只能替换文件名，不能复制到另外的文件夹中