易语言制作文件夹压缩备份工具的代码

文件夹压缩备份工具

此功能需要加载精易模块5.6

.版本 2
.支持库 shell
.支持库 iext
.支持库 eCompress
.程序集 窗口程序集1
.程序集变量 时间戳, 文本型
.程序集变量 过滤文本, 文本型, , "0"
.子程序 _文件路径按钮_被单击
.局部变量 路径, 文本型
路径 ＝ 浏览文件夹 (“选择一个文件夹备份”, 假)
.判断开始 (路径 ＝ “”)
 提示框 (“请选择文件夹备份！”)
.默认
 路径编辑框.内容 ＝ 路径
.判断结束
.子程序 _获取文件按钮_被单击
超级列表框1.全部删除 ()
时间戳 ＝ 时间_到时间戳 (, )
目录_复制 (路径编辑框.内容, 取特定目录 (11) ＋ 时间戳)
过滤文本 ＝ 分割文本 (压缩编辑框.内容, “|”, )
文件_枚举1 (取特定目录 (11) ＋ 时间戳, “*.*”, &返回函数)
.子程序 返回函数
.参数 路径, 文本型
.参数 文件名, 文本型
.局部变量 全路径, 文本型
.局部变量 最后修改时间, 文本型
.局部变量 i1, 整数型
全路径 ＝ 路径 ＋ 文件名
.计次循环首 (取数组成员数 (过滤文本), i1)
 .如果真 (寻找文本 (全路径, 过滤文本 [i1], , 假) ≠ -1)
  返回 ()
 .如果真结束
.计次循环尾 ()
文件_取时间 (全路径, , 最后修改时间, )
超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 全路径)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 最后修改时间)
.子程序 _备份按钮_被单击
ZIP压缩1.压缩 (取特定目录 (11) ＋ 时间戳, 取运行目录 () ＋ “\” ＋ 时间_到时间戳 (, ) ＋ “.zip”)
.子程序 _ZIP压缩1_压缩进度, 逻辑型
.参数 已完成百分比, 整数型
进度条1.位置 ＝ 已完成百分比
.如果真 (已完成百分比 ＝ 100)
 提示框 (“完成”)
.如果真结束
.子程序 _超级列表框1_右键单击表项
.如果真 (超级列表框1.取表项数 () ≠ -1)
 弹出菜单 (菜单, , )
.如果真结束
.子程序 _删除_被选择
文件_删除 (超级列表框1.取标题 (超级列表框1.现行选中项, 1))
超级列表框1.删除表项 (超级列表框1.现行选中项)

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

赞 (0)

相关推荐

  • 易语言使用备份还原的方法

    今天是第一天給大家写经验啊!今天带来的是易语言怎么使用备份还原!平时大家用易语言来做软件的时候会发现每过几天保存一次你的易程序旁边多了易个这样的文件:*****.bak(*****表示你的易程序的名称),这就是易语言的自动保存的文件,如果你辛辛苦苦写了一天的代码,下次打开时你的易程序不小心崩溃的那你就要拿出你的易程序来备份了,现在就开始讲解啦! 1.首先你得有个备份(.bak文件)吧! 2.然后我来说一下,易语言是可以修改后缀的(当然只能安全修改成易语言自带的后缀啊)然后我来说一下,易语言是可以

  • 易语言手动备份方法

    今天又給大家写了经验啊!今天带来的是易语言怎么手动备份!平时大家用易语言来做软件的时候会发现每过几天保存一次你的易程序旁边多了易个这样的文件:*****.bak(*****表示你的易程序的名称),这就是易语言的自动保存的文件,如果你辛辛苦苦写了一天的代码,下次打开时你的易程序不小心崩溃的那你就要拿出你的易程序来备份却又进度跟不上,那可就桑心啊...... 1.写完你的易程序代码后单击保存按钮,会有bak出现(要写好久才会出现的,我这里直接模拟一下) 2.然后复制e文件粘贴到桌面或者空的文件夹(空

  • 易语言制作文件夹压缩备份工具的代码

    易语言制作文件夹压缩备份工具的代码

    文件夹压缩备份工具 此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 iext .支持库 eCompress .程序集 窗口程序集1 .程序集变量 时间戳, 文本型 .程序集变量 过滤文本, 文本型, , "0" .子程序 _文件路径按钮_被单击 .局部变量 路径, 文本型 路径 ＝ 浏览文件夹 ("选择一个文件夹备份", 假) .判断开始 (路径 ＝ "") 提示框 ("请选择文件夹备份!") .默认

  • 易语言制作网截抓包工具的代码

    易语言制作网截抓包工具的代码

    常量数据表 .版本 2 .常量 编码常量, "<文本长度: 10797>", , 名称:编码_GB2312 英文名称:Encoding_GB2312 类型:文本型 值:"GB2312" 列举各种编码类型 全局变量表 .版本 2 .全局变量 系统配置路径, 文本型 网截抓包工具 .版本 2 .支持库 eNetIntercept .支持库 eGrid .支持库 iconv .支持库 iext .支持库 iext2 .程序集 主程序集 .程序集变量 服务安装,

  • 易语言制作双色球随机选号工具的代码

    易语言制作双色球随机选号工具的代码

    双色球随机选号代码 .版本 2 .程序集 窗口程序集1 .子程序 _随机选号按钮_被单击 .局部变量 z, 逻辑型 .局部变量 随机号 随机号 ＝ 取随机数 (1, 33) .如果 (随机号 < 10) 红球编辑框1.内容 ＝ "0" + 到文本 (随机号) .否则 红球编辑框1.内容 ＝ 到文本 (随机号) z ＝ 假 .如果结束 .循环判断首 () 随机号 ＝ 取随机数 (1, 33) .如果 (随机号 ＝ 到数值 (红球编辑框1.内容)) z ＝ 真 .否则 .如果 (随机

  • 易语言实现文件夹加密的代码

    易语言实现文件夹加密的代码

    加密锁上文件夹 此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 spec .支持库 dp1 .程序集 窗口程序集1 .程序集变量 密码, 文本型 .子程序 _按钮_浏览文件_被单击 编辑框_路径.内容 ＝ 浏览文件夹 ("打开你需要加密的文件", ) .子程序 _按钮_加密_被单击 .局部变量 文件夹名称, 文本型 .判断开始 (寻找文本 (编辑框_路径.内容, "[已加密]", , 假) ≠ -1) 提示框 ("已加密"

  • 易语言制作绝地求生视野一键优化的代码

    易语言制作绝地求生视野一键优化的代码

    绝地求生一键优化的代码 优化后远处树干不显示,地面光滑,更容易看到远处的敌人. .版本 2 .支持库 shell .支持库 spec .支持库 iext .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 路径编辑框.内容 ＝ 取特定目录 (8) + "..\Local\TslGame\Saved\Config\WindowsNoEditor\" .如果 (文件是否存在 (路径编辑框.内容 + "\一键优化备份\")) 还原按钮.禁止 ＝ 假 .否则

  • 易语言制作永恒之蓝局域网扫描器的代码

    易语言制作永恒之蓝局域网扫描器的代码

    DLL命令表 .版本 2 .DLL命令 Sleep, , "kernel32.dll", "Sleep", 公开 .参数 dwMilliseconds, 整数型 接口程序集 .版本 2 .程序集 接口程序集 .子程序 取网段, 文本型 .参数 IP地址, 文本型 返回 (取文本左边 (IP地址, 倒找文本 (IP地址, ".", , 假))) .子程序 格式化尾数, 文本型 .参数 文本, 文本型 返回 (文本替换 ("000"

  • 易语言制作王者荣耀刷金币脚本的代码

    易语言制作王者荣耀刷金币脚本的代码

    打开黑夜模拟器,按下F10,王者荣耀进入挑战-魔女回忆,开始即可. 王者荣耀刷金币脚本 此功能需要加载精易模块5.6 .版本 2 .支持库 shellEx .支持库 EThread .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 热键F10, 整数型 .程序集变量 热键Home, 整数型 .程序集变量 集_线程句柄, 整数型 .子程序 __启动窗口_创建完毕 热键F10 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键) 热键Home ＝ 注册热

  • 易语言检测文件被哪个进程占用的代码

    易语言检测文件被哪个进程占用的代码

    检测文件占用的代码 此功能需要加载贝贝吧模块6.6 .版本 2 .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 _查询按钮_被单击 .局部变量 进程名, 进程信息, , "0" .局部变量 进程id, 整数型, , "0" .局部变量 a, 整数型, , "0" .局部变量 i, 整数型 进程名 ＝ 取系统进程列表 () 显示占用列表框.清空 () .计次循环首 (取数组成员数 (进程名), i) .如果真 (寻找文本 (到小写 (

  • 易语言给文件加密的方法

    易语言加密文件夹源码例程程序结合易语言扩展界面支持库和操作系统界面功能支持库,实现文件夹的加密. 1.打开易语言软件 2.创建一个像我一样的窗口 当然也可以自己设计一些很好看的. 3.然后写出各个控件的执行命令源码 4.然后再点击上方的运行按钮 5.没有出问题,就会运行成功. 6.然后再编译软件,两个编译任选一个进行编译. 7.编译成功就会显示软件了. 总结:以上就是关于易语言对文件进行加密的内容,感谢大家的阅读和对我们的支持.

  • 易语言制作国王的勇士辅助步骤

    用易语言制作国王的勇士辅助 1.打开易语言,双击windows窗口程序,这样就进去了 2.进去之后,左边有属性,调整高度和宽度,比国王的勇士窗口大就行.然后在菜单栏找到工具  支持配置库  全选 然后确定 3.在右边找到超文本浏览框 然后放在你的启动窗口里,然后在左边的地址里输入游戏的网址,然后把超文本框拉平,覆盖全屏 4.然后在右边找到选择夹放到你认为合适的地方,然后拉大. 5.然后在左边找到状态条,然后放在一个你觉得合适的地方,然后右击,找到项目设置,进去之后,先插入,点击插入的空白,在内容

随机推荐