Added backup drive format property to settings
This commit is contained in:
@@ -255,6 +255,22 @@ Public Class mgrSettings
|
|||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
ReadOnly Property BackupDriveFormat As String
|
||||||
|
Get
|
||||||
|
Dim oBackupDrive As DriveInfo
|
||||||
|
Dim sFormat As String = String.Empty
|
||||||
|
Try
|
||||||
|
If Directory.Exists(sBackupFolder) Then
|
||||||
|
oBackupDrive = New DriveInfo(Path.GetPathRoot(sBackupFolder))
|
||||||
|
sFormat = oBackupDrive.DriveFormat
|
||||||
|
End If
|
||||||
|
Catch
|
||||||
|
'Do Nothing
|
||||||
|
End Try
|
||||||
|
Return sFormat
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
Property SyncFields As clsGame.eOptionalSyncFields
|
Property SyncFields As clsGame.eOptionalSyncFields
|
||||||
Get
|
Get
|
||||||
Return eSyncFields
|
Return eSyncFields
|
||||||
|
|||||||
Reference in New Issue
Block a user