如题所述
第1个回答 推荐于2016-05-29
工程-引用-Microsoft scripting runtime后;
Private Sub Form_Load()
Dim fso1 As New FileSystemObject
Dim folder1 As Folder
Set folder1 = fso1.GetFolder("c:\")
Msgbox folder1.Size & "Bytes"
End Sub本回答被提问者采纳
Private Sub Form_Load()
Dim fso1 As New FileSystemObject
Dim folder1 As Folder
Set folder1 = fso1.GetFolder("c:\")
Msgbox folder1.Size & "Bytes"
End Sub本回答被提问者采纳
第2个回答 2008-07-07
利用FSO对象中的Folder对象即可。