Issue#3 Added button to access install dir

ISEN-Repair Inventory Manager/Main.Designer.vb

@@ -60,6 +60,7 @@ Partial Class Main
         Me.OSBox = New System.Windows.Forms.TextBox()
         Me.ArchBox = New System.Windows.Forms.TextBox()
         Me.EditButton = New System.Windows.Forms.Button()
+        Me.DBAccessToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip1.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
@@ -69,7 +70,7 @@ Partial Class Main
         '
         'MenuStrip1
         '
-        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddComputerToolMenuItem, Me.GénérerDesIDsToolStripMenuItem, Me.AboutToolMenuItem})
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddComputerToolMenuItem, Me.GénérerDesIDsToolStripMenuItem, Me.DBAccessToolStripMenuItem, Me.AboutToolMenuItem})
         Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip1.Name = "MenuStrip1"
         Me.MenuStrip1.Size = New System.Drawing.Size(874, 24)
@@ -446,6 +447,12 @@ Partial Class Main
         Me.EditButton.Text = "Editer le suivi"
         Me.EditButton.UseVisualStyleBackColor = False
         '
+        'DBAccessToolStripMenuItem
+        '
+        Me.DBAccessToolStripMenuItem.Name = "DBAccessToolStripMenuItem"
+        Me.DBAccessToolStripMenuItem.Size = New System.Drawing.Size(73, 20)
+        Me.DBAccessToolStripMenuItem.Text = "DB Access"
+        '
         'Main
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -517,4 +524,5 @@ Partial Class Main
     Friend WithEvents IDBox As MaskedTextBox
     Private WithEvents AddComputerToolMenuItem As ToolStripMenuItem
     Friend WithEvents GénérerDesIDsToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DBAccessToolStripMenuItem As ToolStripMenuItem
 End Class

ISEN-Repair Inventory Manager/Main.vb

@@ -1,7 +1,10 @@
 Imports System.Data.SQLite
 Imports System.Text
+Imports System.IO
 
 Public Class Main
+    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
+
     Dim manualID_selected As Boolean = False
     Dim idList As New ArrayList
     Public log As New Logger
@@ -371,4 +374,12 @@ Public Class Main
         IDBox.Text = Nothing
         IDBox.Text = tempStor
     End Sub
+
+    Private Sub DBAccessToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DBAccessToolStripMenuItem.Click
+        Dim p As New ProcessStartInfo
+        p.FileName = "explorer.exe"
+        p.Arguments = Directory.GetCurrentDirectory
+        p.UseShellExecute = False
+        Process.Start(p)
+    End Sub
 End Class