进度复制目录加文件

进度复制目录加文件例子。
.判断开始 (是否取消 ＝ 真)
超级列表框1.置标题 (计次 － 1, 1, “复制中”)
时钟1.时钟周期 ＝ 1000
CopyFileExA (临时源文件 [计次], 临时目的文件 [计次], &复制回调, 0, 停止复制, 1)
已复制数量 ＝ 已复制数量 ＋ 1
超级列表框1.置标题 (计次 － 1, 1, “完成”)
超级列表框1.保证显示 (计次 ＋ 5)
超级列表框1.现行选中项 ＝ 计次
源路径 ＝ 临时源文件 [计次]
现路径 ＝ 临时目的文件 [计次]
数据库操作 (“添加”, 路径中取文件名 (源路径, 真), 字节到常用单位 (到整数 (取文件大小 (源路径, 真))), 到文本 (取现行时间 ()), 源路径, 现路径, , , 假)
.默认