Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How To Get Folder Size 2
- Thread starter gwinn7
- Start date
-
1
- #2
Add a reference to the Microsoft Scripting Runtime to your project. Then drop the following into a module:
Public Function GetFolderSize(ByVal strFolder As String) As Long
Dim fso As FileSystemObject
Set fso = New FileSystemObject
GetFolderSize = fso.GetFolder(strFolder).Size
Set fso = Nothing
End Function
Public Function GetFolderSize(ByVal strFolder As String) As Long
Dim fso As FileSystemObject
Set fso = New FileSystemObject
GetFolderSize = fso.GetFolder(strFolder).Size
Set fso = Nothing
End Function
-
1
- Thread starter
- #3
- Status
Similar threads
- Locked
- Question
