Changes for issue #89

This commit is contained in:
MikeMaximus
2017-08-10 22:02:31 -06:00
parent 2ef141ee9b
commit e3bfc6adb1
5 changed files with 41 additions and 3 deletions
+3 -1
View File
@@ -269,13 +269,15 @@ Public Class mgrCommon
End Function
'Calculate the current size of a folder
Public Shared Function GetFolderSize(ByVal sPath As String, ByVal sInclude As String(), ByVal sExclude As String())
Public Shared Function GetFolderSize(ByVal sPath As String, ByVal sInclude As String(), ByVal sExclude As String()) As Long
Dim oFolder As DirectoryInfo
Dim bInclude As Boolean
Dim bExclude As Boolean
Dim lSize As Long = 0
Try
If Not Directory.Exists(sPath) Then Return lSize
oFolder = New DirectoryInfo(sPath)
'Files