Remember last used import directory

Author: tomaz82

b2sbackglassdesigner/b2sbackglassdesigner/Modules/moduleB2S.vb

@@ -53,6 +53,7 @@ Module moduleB2S
     Public Property DefaultOpacity() As Single = 1
     Public Property DefaultVPTablesFolder() As String = String.Empty
     Public Property LatestAuthor() As String = String.Empty
+    Public Property LatestImportDirectory() As String = String.Empty
 
     Public Property NoToolEvents() As Boolean = False
 

b2sbackglassdesigner/b2sbackglassdesigner/classes/Base classes/formBase.vb

@@ -72,6 +72,9 @@
             If node.SelectSingleNode("LatestAuthor") IsNot Nothing Then
                 LatestAuthor = node.SelectSingleNode("LatestAuthor").Attributes("Value").InnerText
             End If
+            If node.SelectSingleNode("LatestImportDirectory") IsNot Nothing Then
+                LatestImportDirectory = node.SelectSingleNode("LatestImportDirectory").Attributes("Value").InnerText
+            End If
             Me.Location = New Point(x, y)
             Me.Size = New Size(width, height)
             Me.WindowState = If(maximized, FormWindowState.Maximized, FormWindowState.Normal)
@@ -151,6 +154,7 @@
                 helper.AddXMLAttribute(XmlSettings, nodeForm, "Opacity", "Value", CInt(DefaultOpacity * 100).ToString())
                 helper.AddXMLAttribute(XmlSettings, nodeForm, "VPTablesFolder", "Value", DefaultVPTablesFolder)
                 helper.AddXMLAttribute(XmlSettings, nodeForm, "LatestAuthor", "Value", LatestAuthor)
+                helper.AddXMLAttribute(XmlSettings, nodeForm, "LatestImportDirectory", "Value", LatestImportDirectory)
             End If
             ' save
             Try

b2sbackglassdesigner/b2sbackglassdesigner/formDesigner.vb

@@ -522,10 +522,12 @@ Public Class formDesigner
             With filedialog
                 .Filter = "'directB2S' backglass file (*.directb2s)|*.directb2s|ALL (*.*)|*.*"
                 .FileName = String.Empty
-                .InitialDirectory = BackglassProjectsPath
+                .InitialDirectory = If(LatestImportDirectory.Length, LatestImportDirectory, BackglassProjectsPath)
                 If .ShowDialog(Me) = DialogResult.OK Then
                     Dim backglassdata As Backglass.Data = Nothing
                     Cursor.Current = Cursors.WaitCursor
+                    LatestImportDirectory = IO.Path.GetDirectoryName(.FileName)
+                    SaveSettings()
                     Try
                         coding.ImportDirectB2SFile(backglassdata, .FileName)
                         If backglassdata IsNot Nothing Then