| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1129 人关注过本帖
标题:取得指定资料夹大小
只看楼主 加入收藏
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
结帖率:97.66%
收藏
已结贴  问题点数:10 回复次数:2 
取得指定资料夹大小
如何取得指定资料夹(含子资料夹)内所有档案大小?
(除了递回加总外)

例如FSO有简单使用的功能吗?
有找到但不知道为什么不能运行
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 资料 如何 
2016-06-07 12:42
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:5 
开玩笑!X="路径"?
程序不知道这个"路径"是什么!应该是X = "C:\ABCD\AA",这个路径你按照你的需要修改。
另外你定义Lfoldersize 为对象,你是不是要获取目录的大小,那么应该是整形数据或长整形数据。
getfolder是FSO的方法,是获取目录的,不是获取目录大小的。

Dim GetFso As Long, FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
GetFso = FSO.GetFolder("D:\ABC\DOS").Size ''返回文件夹(包括子文件夹)内文件占用空间大小
Label1.Caption = CStr(GetFso) & "字节"

已经测试应该没有问题。好像路径是 C:\Windows 时,拒绝访问。

[此贴子已经被作者于2016-6-8 10:50编辑过]


请不要选我!!!
2016-06-07 13:37
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:5 
百度的结果。
getfso=fso.GetFolder("c:\windows").Size '返回文件夹(包括子文件夹)内文件占用空间大小


授人于鱼,不如授人于渔
早已停用QQ了
2016-06-07 17:57
快速回复:取得指定资料夹大小
数据加载中...
 
   



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

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