In an existing vb.net 2010 desktop application, I want to remove the hardcoded directory paths that are contained within the entire application and obtain the values from a app.config file instead. Right now in the Global.vb program, I have the following code and it works fine as long as the directory path supplied in the app.config file is correct.
#Region "Oledb Connect" Imports System Imports System.Collections.Generic Imports System.IO.Path Imports System.Configuration.ConfigurationManager #End Region
Module [Global] Public _strDirectoryPath As String = ConfigurationManager.AppSettings("File_directory_path") Public dirAccessFiles As String() = Directory.GetFiles(_strDirectoryPath, "*.accdb") End Module
However when there is an error, I have a coding problem. I basically want to check to see if the directory file exists before startup form is loaded. I want to have an if test 'like' what is located in: https://msdn.microsoft.com/en-us/library/system.io.directory.exists(v=vs.110).aspx, but the global.vb program will not allow me to have an 'if' test coded. Thus can you tell me what I can do to be able to add the if test to see if the directory exists?
Here is the code from the startup project file if it helps to explain what else I need to change: #Region " Global Form " Private Shared m_GlobalForm As frmMain Public Shared Property GlobalForm() As frmMain Get If m_GlobalForm Is Nothing OrElse m_GlobalForm.IsDisposed Then m_GlobalForm = New frmMain End If Return m_GlobalForm End Get Set(ByVal Value As frmMain) m_GlobalForm = Value End Set End Property #End Region Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load frmMain.GlobalForm = Me End Sub