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
相关问答：
想在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 ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多，参考一下：
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
