Cleaned up fix for issue #94
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user