“把批量文件对应添加到相应已有压缩包”的代码，以飨大家，并特感谢吹水佬班主的不吝指教
把批量文件对应添加到已有相应的压缩包的代码在各位特别在吹水佬班主的不吝指教下，基本成样，以飨大家，并请各位指教。在此要特别感谢吹水佬班主，不厌其烦的指教。
cdir=getdir()
wjj=left(cdir,len(cdir)-1)
CD &wjj
pawd=SPACE(8)
fielname=SPACE(3)
@8,10 SAY '请输入要添加到压缩的文件类型(如：DBF，XLS): ' GET fielname
fielname=UPPER(ALLTRIM(fielname))
? fielname
@10,10 SAY '若原压缩包有密码，请输入密码，长度最长为8位: ' get pawd
pawd=ALLTRIM(pawd)
REAd
FOR i=1 TO ADIR(filearray, "*.rar")
cRAR = filearray[i,1]
cDBF = LEFT(cRAR, AT(".",cRAR)) + "&fielname"
Wait "正在添加到压缩包中!"+STR(i)+"个文件" windows TIMEOUT 0 NOWAIT AT SROWS()/2,(SCOLS()/2)
RUN /N7 "C:\Program Files\WinRAR\winrar.exe" a -ibck -hp&pawd &cRAR &cDBF
ENDFOR
Wait "文件添加到压缩包完成，请在相应目录下检查" WINDOW TIMEOUT 5 AT SROWS()/2,(SCOLS()/4)
CLEAR
CLEAR all
