From 9b45ae7b1cb1b5bf1861cde8653a9beb441f9641 Mon Sep 17 00:00:00 2001
From: "Michael J. Seiferling" <mseiferling@gmail.com>
Date: Sat, 27 Apr 2019 07:22:57 -0600
Subject: [PATCH] Added backup drive format property to settings

---
 GBM/Managers/mgrSettings.vb | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/GBM/Managers/mgrSettings.vb b/GBM/Managers/mgrSettings.vb
index 42e623d..02982e1 100644
--- a/GBM/Managers/mgrSettings.vb
+++ b/GBM/Managers/mgrSettings.vb
@@ -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