يختلف الجواب حسب طريقة برمجة هذا المشروع
ولكن الافضل استخدم 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
هذا بشكل مبسط وقد تحتاج لتطوير هذا الكود