目的目录 ＝ 浏览文件夹 (“请选择存放复制的目录”, 真)
.判断开始 (目的目录 ≠ “”)
编辑框1目的目录.内容 ＝ 目的目录
目标盘符 ＝ 取文本左边 (编辑框1目的目录.内容, 1)
标签1目标盘符大小.标题 ＝ “目标磁盘：【总容量：” ＋ 字节到常用单位 (到长整数 (取综合信息 (5, , 目标盘符))) ＋ “ (” ＋ 长整数表现方式转换 (取综合信息 (5, , 目标盘符)) ＋ “ 字节) 剩余容量：” ＋ 字节到常用单位 (到长整数 (取综合信息 (6, , 目标盘符))) ＋ “ (” ＋ 长整数表现方式转换 (取综合信息 (6, , 目标盘符)) ＋ “ 字节)】”
透明标签1磁盘属性.可视 ＝ 真
源路径 ＝ 超级列表框1.取标题 (计次 － 1, 0)
现路径 ＝ 编辑框1目的目录.内容 ＋ “\” ＋ 路径中取文件名 (超级列表框1.取标题 (计次 － 1, 0), 真)
超级列表框1.置标题 (计次 － 1, 1, “复制中”)
CopyFileExA (源路径, 现路径, &复制回调, 0, 停止复制, 1)
时钟1.时钟周期 ＝ 1000
超级列表框1.置标题 (计次 － 1, 1, “完成”)
超级列表框1.保证显示 (计次 ＋ 5)
超级列表框1.现行选中项 ＝ 计次
已复制数量 ＝ 已复制数量 ＋ 1
数据库操作 (“添加”, 路径中取文件名 (源路径, 真), 字节到常用单位 (到整数 (取文件大小 (源路径, 真))), 到文本 (取现行时间 ()), 源路径, 现路径, , , 假)
上一篇 易语言折叠菜单制作方法
下一篇 正则表达式、匹配、搜索例程