标题:求文件夹大小?
取消只看楼主
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
结帖率:96.03%
已结贴  问题点数:11 回复次数:3 
求文件夹大小?
有一个文件夹,里面放着每天向里面拷贝的多个表文件。当这个文件夹达到1GB时就删除早期拷贝进来的表文件,以保正该文件夹不至于过大。
1.求这个文件夹大小?
2.如何删除较早期的表文件?
搜索更多相关主题的帖子: 文件夹 如何 
2016-10-27 20:34
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
得分:0 
回复 4楼 吹水佬
测试了,可行。但连编时,出现错误:未知的 AF - 未定义。
我在代码前加上:dime af(x,y)   出现错误:找不到变量x,y
指点一下。

2016-10-28 09:06
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
得分:0 
回复 4楼 吹水佬

        dx=0
        FOR i=1 TO ADIR(af, "e:\小精灵数据手动备份\*.*")
        tw=af[i,2]
        dx=dx+tw
        ENDFOR
        thisform.text1.Value=dx/1024/1024
测试正确,连编出现错误:AF未定义。
2016-10-28 09:09
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
得分:0 
回复 7楼 吹水佬
采用了吹水佬的思路,同时感谢红星二锅头。
谢谢!
2016-10-28 11:32



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-470354-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.208994 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved