Rewrote import / export

GBM/Classes/XML Serialize Classes/Game.vb

@@ -0,0 +1,83 @@
+Public Class Game
+    Private sGameName As String
+    Private sProcessName As String
+    Private sPath As String
+    Private bAbsolutePath As Boolean
+    Private bFolderSave As Boolean
+    Private sFileType As String
+    Private sExcludeList As String
+    Private oTags As List(Of Tag)
+
+    Property Name As String
+        Set(value As String)
+            sGameName = value
+        End Set
+        Get
+            Return sGameName
+        End Get
+    End Property
+
+    Property ProcessName As String
+        Set(value As String)
+            sProcessName = value
+        End Set
+        Get
+            Return sProcessName
+        End Get
+    End Property
+
+    Property Path As String
+        Set(value As String)
+            sPath = mgrPath.ReverseSpecialPaths(value)
+        End Set
+        Get
+            Return mgrPath.ReplaceSpecialPaths(sPath)
+        End Get
+    End Property
+
+    Property AbsolutePath As Boolean
+        Set(value As Boolean)
+            bAbsolutePath = value
+        End Set
+        Get
+            Return bAbsolutePath
+        End Get
+    End Property
+
+    Property FolderSave As Boolean
+        Set(value As Boolean)
+            bFolderSave = value
+        End Set
+        Get
+            Return bFolderSave
+        End Get
+    End Property
+
+    Property FileType As String
+        Set(value As String)
+            sFileType = value
+        End Set
+        Get
+            Return sFileType
+        End Get
+    End Property
+
+    Property ExcludeList As String
+        Set(value As String)
+            sExcludeList = value
+        End Set
+        Get
+            Return sExcludeList
+        End Get
+    End Property
+
+    Property Tags As List(Of Tag)
+        Get
+            Return oTags
+        End Get
+        Set(value As List(Of Tag))
+            oTags = value
+        End Set
+    End Property
+
+End Class

GBM/Classes/XML Serialize Classes/Tag.vb

@@ -0,0 +1,13 @@
+Public Class Tag
+    Private sTagName As String
+
+    Property Name As String
+        Get
+            Return sTagName
+        End Get
+        Set(value As String)
+            sTagName = value
+        End Set
+    End Property
+
+End Class

GBM/Classes/clsGame.vb

@@ -18,6 +18,7 @@
     Private bDuplicate As Boolean = False
     Private sDOSBoxProcess As String = String.Empty
     Private bTempGame As Boolean = False
+    Private oImportTags As New List(Of Tag)
 
     Property ID As String
         Set(value As String)
@@ -156,40 +157,40 @@
         End Set
     End Property
 
-    Property Enabled As Boolean
-        Set(value As Boolean)
-            bEnabled = value
-        End Set
+    Property Enabled As Boolean        
         Get
             Return bEnabled
         End Get
+        Set(value As Boolean)
+            bEnabled = value
+        End Set
     End Property
 
-    Property MonitorOnly As Boolean
-        Set(value As Boolean)
-            bMonitorOnly = value
-        End Set
+    Property MonitorOnly As Boolean        
         Get
             Return bMonitorOnly
         End Get
+        Set(value As Boolean)
+            bMonitorOnly = value
+        End Set
     End Property
 
     Property Duplicate As Boolean
-        Set(value As Boolean)
-            bDuplicate = value
-        End Set
         Get
             Return bDuplicate
         End Get
+        Set(value As Boolean)
+            bDuplicate = value
+        End Set
     End Property
 
-    Property DOSBoxProcess As String
-        Set(value As String)
-            sDOSBoxProcess = value
-        End Set
+    Property DOSBoxProcess As String        
         Get
             Return sDOSBoxProcess
         End Get
+        Set(value As String)
+            sDOSBoxProcess = value
+        End Set
     End Property
 
     ReadOnly Property TruePath As String
@@ -213,6 +214,15 @@
         End Set
     End Property
 
+    Property ImportTags As List(Of Tag)
+        Get
+            Return oImportTags
+        End Get
+        Set(value As List(Of Tag))
+            oImportTags = value
+        End Set
+    End Property
+
     Public Function SyncEquals(obj As Object) As Boolean
         Dim oGame As clsGame = TryCast(obj, clsGame)
         If oGame Is Nothing Then