Cleaned up fix for issue #94

This commit is contained in:
MikeMaximus
2017-07-15 10:54:15 -06:00
parent d3d6482bfd
commit b5859d6541
+2 -3
View File
@@ -323,7 +323,7 @@ Public Class mgrCommon
End Function End Function
'Get available disk space on a drive (Unix) 'Get available disk space on a drive (Unix)
Private Shared Function GetAvailableDiskSpaceLinux(ByVal sPath As String) As Long Private Shared Function GetAvailableDiskSpaceUnix(ByVal sPath As String) As Long
Dim prsdf As Process Dim prsdf As Process
Dim sOutput As String Dim sOutput As String
Dim sAvailableSpace As String Dim sAvailableSpace As String
@@ -343,7 +343,6 @@ Public Class mgrCommon
Catch Catch
Return 0 Return 0
End Try End Try
Return 0
End Function End Function
'Get available disk space on a drive (Windows) 'Get available disk space on a drive (Windows)
@@ -362,7 +361,7 @@ Public Class mgrCommon
'Get available disk space on a drive 'Get available disk space on a drive
Public Shared Function GetAvailableDiskSpace(ByVal sPath As String) As Long Public Shared Function GetAvailableDiskSpace(ByVal sPath As String) As Long
If IsUnix() Then If IsUnix() Then
Return GetAvailableDiskSpaceLinux(sPath) Return GetAvailableDiskSpaceUnix(sPath)
Else Else
Return GetAvailableDiskSpaceWindows(sPath) Return GetAvailableDiskSpaceWindows(sPath)
End If End If