Saving the DB download in the same directory as CompactGUI.exe was a bad idea. It now downloads to the temp directory, and then the DB is stored in My.Settings.

Author: Iridium-IO

CompactGUI/App.config

@@ -38,6 +38,12 @@
       <setting name="SkipNonCompressable" serializeAs="String">
         <value>True</value>
       </setting>
+      <setting name="ResultsDB" serializeAs="String">
+        <value />
+      </setting>
+      <setting name="ResultsDB_Date" serializeAs="String">
+        <value />
+      </setting>
     </CompactGUI.My.MySettings>
   </userSettings>
 </configuration>

CompactGUI/My Project/Settings.Designer.vb

@@ -23,5 +23,11 @@
     <Setting Name="SkipNonCompressable" Type="System.Boolean" Scope="User">
       <Value Profile="(Default)">True</Value>
     </Setting>
+    <Setting Name="ResultsDB" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
+    <Setting Name="ResultsDB_Date" Type="System.DateTime" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
   </Settings>
 </SettingsFile>

CompactGUI/My Project/Settings.settings

@@ -9,23 +9,28 @@ Class WikiHandler
     Shared InputFromGitHub As IEnumerable(Of XElement)
     Friend Shared allResults As New List(Of Result)
     Shared workingname As String = "testdir"
-    Shared DBZipFileLoc As String = AppDomain.CurrentDomain.BaseDirectory & "\CompactGUI.zxm"
+    Shared DBZipFileLoc As String = Path.GetTempPath & "CompactGUI.zxm"
 
     Private Shared Sub WikiParser()
         Console.WriteLine("Working Name: " & workingname)
-
+        Console.WriteLine(DBZipFileLoc)
         allResults.Clear()
 
-        Console.WriteLine(New FileInfo(DBZipFileLoc).LastWriteTime)
-        If InputFromGitHub Is Nothing AndAlso File.Exists(DBZipFileLoc) AndAlso Date.Now < (New FileInfo(DBZipFileLoc).LastWriteTime.AddHours(24)) Then
+        Console.WriteLine(My.Settings.ResultsDB_Date)
+        If InputFromGitHub Is Nothing AndAlso My.Settings.ResultsDB IsNot Nothing AndAlso Date.Now < My.Settings.ResultsDB_Date.AddHours(12) Then
             Console.WriteLine("Using existing DB")
             InitialiseInputFromGithub()
 
         ElseIf InputFromGitHub Is Nothing Then
             Console.WriteLine("Fetching New DB")
+
             Dim wc = New WebClient With {.Encoding = Encoding.UTF8}
             Try
                 wc.DownloadFile("https://raw.githubusercontent.com/ImminentFate/CompactGUI/master/Wiki/Database.zip", DBZipFileLoc)
+                Dim x As Compression.ZipArchive = Compression.ZipFile.OpenRead(DBZipFileLoc)
+                Dim stre As StreamReader = New StreamReader(x.Entries(0).Open())
+                My.Settings.ResultsDB = stre.ReadToEnd
+                My.Settings.ResultsDB_Date = Date.Now
                 InitialiseInputFromGithub()
 
             Catch ex As WebException
@@ -47,9 +52,7 @@ Class WikiHandler
 
     Private Shared Sub InitialiseInputFromGithub()
         Dim SRC As XElement
-        Dim x As Compression.ZipArchive = Compression.ZipFile.OpenRead(DBZipFileLoc)
-        Dim stre As StreamReader = New StreamReader(x.Entries(0).Open())
-        SRC = XElement.Parse(stre.ReadToEnd)
+        SRC = XElement.Parse(My.Settings.ResultsDB)
         InputFromGitHub = SRC.Elements()
         ParseData()
     End Sub