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 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多，参考一下：
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
