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 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
