vb中怎样查看整个文件夹的大小
vb中怎样查看整个文件夹的大小
还有就是怎样查看文件夹内的文件个数,希望大大门说下.我新手哈.希望能说详细点.
对象FileSystemObject中的GetFolder的Files(文件个数),Size(文件夹大小)
Dim fso As New FileSystemObject ’要引 microsoft scripting runtime
Dim i, j As long
i = fso.GetFolder("D:\Mytest").Size ‘文件大小
j = fso.GetFolder("D:\Mytest").Files.Count ’文件数
给你个简单的纯VB代码
这个没有包括子目录的，要有的话可以用递归
VB code:
Private Sub Form_Load()
MsgBox "文件总数：" & getDirFileCount("C:\")
MsgBox "文件大小和：" & CLng(getDirFileLenTotal("C:\") / 1024) & "KB"
End Sub
Function getDirFileCount(DirName As String) As Long
If (Right(DirName, 1) <> "\") Then DirName = DirName & "\"
i = 0
a = Dir(DirName, vbNormal)
While (a <> "")
i = i + 1
a = Dir()
Wend
getDirFileCount = i
End Function
Function getDirFileLenTotal(DirName As String) As Currency
If (Right(DirName, 1) <> "\") Then DirName = DirName & "\"
i = 0
a = Dir(DirName, vbNormal)
While (a <> "")
i = i
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？
具体的代码？
无码无真相！
你把篮球抱在怀里，就能远投得3分？
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
