开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 194|回复: 4
收起左侧

[易语言] 易语言如何对比一个文件夹及准备复制到的目标磁盘空间.....

[复制链接]
结帖率:29% (2/7)
发表于 2025-7-12 13:48:40 | 显示全部楼层 |阅读模式   广东省广州市
5精币
易语言如何对比一个文件夹及准备复制到的目标磁盘空间够不够?有没有快速或方便简短的命令?


回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳
结帖率:100% (2/2)

签到天数: 15 天

发表于 2025-7-12 13:59:14 | 显示全部楼层   四川省乐山市
你只需要用精易模块里的2个命令,获取到文件夹尺寸及磁盘剩余空间尺寸来做对比即可。操作时,必须对磁盘空间进行削减一部分,属于系统必须留存的空间。

目录_取大小 ()

系统_取磁盘大小信息 ()
回复

使用道具 举报

结帖率:57% (12/21)

签到天数: 7 天

发表于 2025-7-12 14:47:28 | 显示全部楼层   浙江省湖州市
### 易语言检测文件夹复制空间的方法在易语言中检测源文件夹大小并对比目标磁盘可用空间,可以通过以下方式实现:### 计算文件夹大小的函数```易语言.版本 2.支持库 eAPI.子程序 计算文件夹大小, 整数型.参数 文件夹路径, 文本型.局部变量 文件列表, 文本型, , "0".局部变量 文件属性, 整数型, , "0".局部变量 文件大小, 整数型.局部变量 总大小, 整数型.局部变量 i, 整数型    // 获取文件夹下所有文件和子文件夹    取目录下所有文件 (文件夹路径, 文件列表, 文件属性, , , 真)        总大小 = 0        // 遍历所有文件,累加大小    循环 (i = 1; i <= 取数组成员数 (文件列表); i = i + 1)        如果 (文件属性 位与 #文件属性_目录 = 0)  // 如果不是目录(是文件)            文件大小 = 取文件长度 (文件夹路径 + "\" + 文件列表 )            总大小 = 总大小 + 文件大小        结束    结束        返回 (总大小).子程序尾```### 获取磁盘可用空间的函数```易语言.版本 2.支持库 eAPI.子程序 获取磁盘可用空间, 整数型.参数 磁盘路径, 文本型.局部变量 可用空间, 整数型    // 获取指定磁盘的可用空间(以字节为单位)    可用空间 = 取磁盘空间剩余 (磁盘路径)        返回 (可用空间).子程序尾```### 对比空间并判断是否足够```易语言.版本 2.子程序 判断空间是否足够, 逻辑型.参数 源文件夹路径, 文本型.参数 目标文件夹路径, 文本型.局部变量 源文件夹大小, 整数型.局部变量 目标磁盘可用空间, 整数型.局部变量 目标磁盘, 文本型    // 获取目标磁盘(例如从"D:\temp"获取"D:\")    目标磁盘 = 取文本左边 (目标文件夹路径, 2) + "\"        // 计算源文件夹大小    源文件夹大小 = 计算文件夹大小 (源文件夹路径)        // 获取目标磁盘可用空间    目标磁盘可用空间 = 获取磁盘可用空间 (目标磁盘)        // 比较大小    如果 (源文件夹大小 <= 目标磁盘可用空间)        返回 (真)  // 空间足够    否则        返回 (假)  // 空间不足    结束.子程序尾```### 使用示例```易语言.版本 2.子程序 _按钮1_被单击.局部变量 源文件夹, 文本型.局部变量 目标文件夹, 文本型.局部变量 空间足够, 逻辑型    源文件夹 = "C:\Data"    目标文件夹 = "D:\Backup"        空间足够 = 判断空间是否足够 (源文件夹, 目标文件夹)        如果 (空间足够)        信息框 ("空间足够,可以复制", 0, "提示")        // 这里可以添加复制文件的代码    否则        信息框 ("空间不足,无法复制", 0, "提示")    结束.子程序尾```### 注意事项1. 上述代码计算的是精确的文件夹大小,但对于包含大量文件的文件夹可能会较慢。如果需要快速估算,可以只计算主文件大小而不递归子文件夹。2. 对于非常大的文件夹,建议在后台线程中计算大小,避免界面卡顿。3. 磁盘空间检查应该在复制操作前立即进行,因为其他程序可能在检查后占用了目标磁盘空间。4. 如果需要显示友好的大小信息,可以将字节转换为KB、MB或GB:```易语言.子程序 字节转友好单位, 文本型.参数 字节数, 整数型.局部变量 单位, 文本型.局部变量 数值, 双精度小数型    如果 (字节数 < 1024)        单位 = "B"        数值 = 字节数    否则如果 (字节数 < 1048576)  // 1024*1024        单位 = "KB"        数值 = 字节数 / 1024    否则如果 (字节数 < 1073741824)  // 1024*1024*1024        单位 = "MB"        数值 = 字节数 / 1048576    否则        单位 = "GB"        数值 = 字节数 / 1073741824    结束        返回 (到文本 (取整 (数值 * 100) / 100) + 单位).子程序尾```使用这个函数可以将大小显示为更易读的格式,例如:```易语言调试输出 ("源文件夹大小: " + 字节转友好单位 (源文件夹大小))调试输出 ("目标磁盘可用空间: " + 字节转友好单位 (目标磁盘可用空间))```


  
子程序名返回值类型公开备 注
计算文件夹大小整数型 
参数名类 型参考可空数组备 注
文件夹路径文本型
变量名类 型静态数组备 注
文件列表文本型0
文件属性整数型0
文件大小整数型 
总大小整数型 
i整数型 
// 获取文件夹下所有文件和子文件夹
取目录下所有文件 (文件夹路径, 文件列表, 文件属性, , , )

总大小 = 0

// 遍历所有文件,累加大小
循环 (i = 1; i <= 取数组成员数 (文件列表); i = i + 1)
如果 (文件属性 [i] 位与 #文件属性_目录 = 0)  // 如果不是目录(是文件)
文件大小 = 取文件长度 (文件夹路径 + "\" + 文件列表 [i])
总大小 = 总大小 + 文件大小
结束
结束

返回 (总大小)
.子程序尾


i支持库列表   支持库注释   
eAPI应用接口支持库

  
子程序名返回值类型公开备 注
判断空间是否足够逻辑型 
参数名类 型参考可空数组备 注
源文件夹路径文本型
目标文件夹路径文本型
变量名类 型静态数组备 注
源文件夹大小整数型 
目标磁盘可用空间整数型 
目标磁盘文本型 
// 获取目标磁盘(例如从"D:\temp"获取"D:\")
目标磁盘 = 取文本左边 (目标文件夹路径, 2) + "\"

// 计算源文件夹大小
源文件夹大小 = 计算文件夹大小 (源文件夹路径)

// 获取目标磁盘可用空间
目标磁盘可用空间 = 获取磁盘可用空间 (目标磁盘)

// 比较大小
如果 (源文件夹大小 <= 目标磁盘可用空间)
返回 ()  // 空间足够
否则
返回 ()  // 空间不足
结束
.子程序尾

  
子程序名返回值类型公开备 注
字节转友好单位文本型 
参数名类 型参考可空数组备 注
字节数整数型
变量名类 型静态数组备 注
单位文本型 
数值双精度小数型 
如果 (字节数 < 1024)
单位 = "B"
数值 = 字节数
否则如果 (字节数 < 1048576)  // 1024*1024
单位 = "KB"
数值 = 字节数 / 1024
否则如果 (字节数 < 1073741824)  // 1024*1024*1024
单位 = "MB"
数值 = 字节数 / 1048576
否则
单位 = "GB"
数值 = 字节数 / 1073741824
结束

返回 (到文本 (取整 (数值 * 100) / 100) + 单位)
.子程序尾

回复

使用道具 举报

结帖率:0% (0/1)

签到天数: 14 天

发表于 2025-7-12 21:00:09 | 显示全部楼层   广东省深圳市
是这样的,我在几年前自己写了一个文件备份软件,源文件、目标位置,通过对比,找出不同、修改过的文件,新文件复制到目标位置。但我没有做磁盘空间的计算。就是纯粹源文件对比目标文件,哪些需要保留,是否更新过,是否多余需要删除,进行对比操作。
回复

使用道具 举报

结帖率:100% (40/40)

签到天数: 20 天

发表于 2025-7-12 23:33:11 | 显示全部楼层   福建省泉州市

附件:

aaaaa.e (151.37 KB, 下载次数: 1)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报QQ: 793400750,邮箱:wp@125.la
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表