精易论坛

标题: 进度文件夹移动问题 [打印本页]

作者: 小沫Mr 时间: 2025-6-21 14:17
标题: 进度文件夹移动问题
请问如何移动文件夹（包括子文件夹的所有文件及目录结构），并且需要返回进度，以使用在进度条上。

作者: 熬夜 时间: 2025-6-21 14:28
https://125.confly.eu.org/forum.php?mod=viewthread&tid=7050

作者: 熬夜 时间: 2025-6-21 14:32
控件_进度条.最小值 = 0
控件_进度条.最大值 = 文件总大小
控件_进度条.值 = 已写入大小

' 更新状态提示信息
标签_状态.文本 = "正在写入文件，当前进度：" + 转文本(已写入大小 / 文件总大小 * 100) + "%" 应该看得懂这个意思吧你只要把你写入总文件和已写入文件进行百分比显示在你要的进度条上普通进度条你直接去找个例子改成你要的

作者: 小沫Mr 时间: 2025-6-21 14:53

熬夜发表于 2025-6-21 14:32
控件_进度条.最小值 = 0
控件_进度条.最大值 = 文件总大小
控件_进度条.值 = 已写入大小

这个意思肯定懂，但是目录结构及成千上万个文件怎么确定这个有点懵，确定文件大小和以写入文件大小？

作者: 熬夜 时间: 2025-6-21 15:09
.版本 2
.支持库 iext

文件_枚举 (编辑框1.内容, “*.*”, a, 真)
.计次循环首 (取数组成员数 (a), n)
索引＝超级列表框1.插入表项 (, 到文本 (n), , , , )
超级列表框1.置标题 (索引, 1, 文件_取文件名 (a [n], 真))
超级列表框1.置标题 (索引, 2, 到文本 (取文件时间 (a [n]))) ' 如果是取日期则在到文本(后面添加取日期(
超级列表框1.置标题 (索引, 3, 到文本 (取文件尺寸 (a [n])))
.计次循环尾 ()

作者: 小沫Mr 时间: 2025-6-21 21:34
自己解决了，大概思路是先枚举目录所有结构，新建所有目录，枚举所有目录下的文件，复制所有文件在循环结构里记录进度条需要的值。结帖。

作者: 小沫Mr 时间: 2025-6-21 21:35

自己解决了，大概思路是先枚举目录所有结构，新建所有目录，枚举所有目录下的文件，复制所有文件在循环结构里记录进度条需要的值。结帖。

作者: Nick5469 时间: 2025-6-21 21:35
遍历文件夹内的所有子文件和子文件夹，然后在循环体内单个处理，做进度显示

欢迎光临精易论坛 (https://125.confly.eu.org/)