下你所需,载你所想!
汇集开发技术源码资料

给Word中所有图片批量添加水印软件源码

:243.688KB :1 :2019-11-03 18:45:39

部分简介

欲压缩目录名 = 欲压缩目录名 + 选择 (取文本右边 (欲压缩目录名, 1) ≠ “\”, “\”, “”)
临时文件 = 取临时文件名 ()
写到文件 (临时文件, { })
处理事件 ()
zip.创建压缩文件 (保存文件名)
zip.打开文件 (保存文件名)
枚举 (欲压缩目录名, 局_文件名组, 局_目录名组)
目录总数 = 取数组成员数 (局_目录名组)
文件总数 = 取数组成员数 (局_文件名组)
.计次循环首 (目录总数, i)
显示名称 = 子文本替换 (局_目录名组 [i].全路径, 欲压缩目录名, “”, , , 真)
.判断开始 (显示名称 = “”)
zip.预订文件 (临时文件, 局_目录名组 [i].目录名 + “\”, )
.默认
zip.预订文件 (临时文件, 显示名称 + 局_目录名组 [i].目录名 + “\”, )
.判断结束
' 调用子程序 (回调子程序, , , 目录总数, 文件总数, 0, 局_目录名组 [i].全路径, 局_目录名组 [i].目录名)
处理事件 ()
.计次循环尾 ()
.计次循环首 (文件总数, i)
显示名称 = 子文本替换 (局_文件名组 [i].全路径, 欲压缩目录名, “”, , , 真)
.判断开始 (显示名称 = “”) ' 当前目录
zip.预订文件 (局_文件名组 [i].全路径 + 局_文件名组 [i].文件名, 局_文件名组 [i].文件名)
.默认
zip.预订文件 (局_文件名组 [i].全路径 + 局_文件名组 [i].文件名, 显示名称 + 局_文件名组 [i].文件名)
.判断结束
' 调用子程序 (回调子程序, , , 目录总数, 文件总数, 1, 局_文件名组 [i].全路径, 局_文件名组 [i].文件名)
.计次循环尾 ()
zip.压缩文件 ()
zip.关闭文件 ()
删除文件 (临时文件)
处理事件 ()

给Word中所有图片批量添加水印软件源码

热门推荐

相关文章