[alma2]

يختلف الجواب حسب طريقة برمجة هذا المشروع
ولكن الافضل استخدم Registry لحفظ مسار قاعدة البيانات ومسار الصور

وهذا مثال
نقوم بإنشاء Module ونضع فيه التالي

كود :

Module Module1

   Public DatabasePath As String = ""
   Public ImagesPath As String = ""

   Public Function CheckSettings() As Boolean
       DatabasePath = GetSetting(Application.ProductName, "AppPaths", "DatabasePath", "")
       ImagesPath = GetSetting(Application.ProductName, "AppPaths", "ImagesPath", "")


       If DatabasePath = "" Or ImagesPath = "" Then
           MsgBox("يجب تحديد مسار قاعدة البيانات ومسار الصور")
           Using browse As New FolderBrowserDialog
               browse.ShowNewFolderButton = True
               browse.Description = "تحديد مسار قاعدة البيانات"
               If browse.ShowDialog = Windows.Forms.DialogResult.OK Then
                   DatabasePath = browse.SelectedPath
                   SaveSetting(Application.ProductName, "AppPaths", "DatabasePath", DatabasePath)
               End If
           End Using
           Using browse As New FolderBrowserDialog
               browse.ShowNewFolderButton = True
               browse.Description = "تحديد مسار الصور"
               If browse.ShowDialog = Windows.Forms.DialogResult.OK Then
                   ImagesPath = browse.SelectedPath
                   SaveSetting(Application.ProductName, "AppPaths", "ImagesPath", DatabasePath)
               End If
           End Using
       Else
           Return True
       End If

       If DatabasePath <> "" And ImagesPath <> "" Then
           MsgBox("تم إنشاء مسار قاعدة البيانات ومسار الصور ويمكنك متابعة عمل البرنامج")
           Return True
       Else
           Return False
       End If

   End Function

End Module

وفي بداية تشغيل البرنامج مثلا في حدث Form1_Load

كود :

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Show()
       If Not CheckSettings() Then
           MsgBox("يجب تحديد مسار قاعدة البيانات ومسار الصور قبل متابعة العمل في البرنامج")
           MsgBox("سيتم الخروج من البرنامج")
           Application.ExitThread()
       End If

   End Sub

هذا بشكل مبسط وقد تحتاج لتطوير هذا الكود