实现把一个文件夹里的照片，按专业名称自动归并，以专业名称建文件夹。能否帮忙？

想实现把一个文件夹里的照片，按专业名称zymc实现以专业名称建立文件夹，自动归并。原来收集的有代码，以身份证号按年份归并，能否帮忙修改下？

SET TALK off
MESSAGEBOX('点击确定后，请选择图片文件所在文件夹')
tdir=GETDIR()
IF EMPTY(tdir) then
    MESSAGEBOX('没有选择相片目录')
    QUIT
ENDIF
SET DEFAULT TO &tdir
tdircont=ADIR(listfile)
    IF tdircont >0 then
        FOR i=1 TO tdircont
            afile1=listfile[i,1]
            IF UPPER(SUBSTR(afile1,LEN(afile1)-2))<>"JPG" THEN
                LOOP
            ENDIF
            IF UPPER(SUBSTR(afile1,1,2))="S_" then
                afile2=UPPER(SUBSTR(afile1,3))
                ELSE
                afile2=UPPER(afile1)
            ENDIF
*            RENAME &afile1 TO &afile2
            **检查指定目录是否存在，不存在就创建               
                IF not DIRECTORY(SUBSTR(afile2,7,4)) then
                    md(SUBSTR(afile2,7,4))
                ENDIF
            tdirtmp1=tdir+afile2
            tdirtmp2=tdir+SUBSTR(afile2,7,4)+'\'+UPPER(afile2)
            ! COPY &tdirtmp1   &tdirtmp2
            DELETE FILE &tdirtmp1
        ENDFOR
    ENDIF

MESSAGEBOX('处理完成')