| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 381 人关注过本帖
标题:“把批量文件对应添加到相应已有压缩包”的代码,以飨大家,并特感谢吹水佬 ...
只看楼主 加入收藏
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1487
专家分:162
注 册:2006-6-3
结帖率:79.2%
  已结贴   问题点数:20  回复次数:1   
“把批量文件对应添加到相应已有压缩包”的代码,以飨大家,并特感谢吹水佬班主的不吝指教
把批量文件对应添加到已有相应的压缩包的代码在各位特别在吹水佬班主的不吝指教下,基本成样,以飨大家,并请各位指教。
在此要特别感谢吹水佬班主,不厌其烦的指教。
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
搜索更多相关主题的帖子: 输入密码  压缩包  
2017-06-15 11:03
wengjl
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:57
帖 子:1338
专家分:2511
注 册:2007-4-27
  得分:20 
学习,谢谢!有用时好找一点

只求每天有一丁点儿的进步就可以了
2017-06-15 14:22







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027301 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved