Added backup drive format property to settings

2019-04-27 07:22:57 -06:00
parent 3a54cddf98
commit 9b45ae7b1c
1 changed files with 16 additions and 0 deletions
@@ -255,6 +255,22 @@ Public Class mgrSettings
        End Set
    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
        Get
            Return eSyncFields