mports System
Imports System.Collections.Specialized
Imports System.Collections.ObjectModel
Imports System.Collections
Imports System.Text
Imports System.Configuration
 
Class AppSettings
 
'glo is a globalUDT created in a mod in my project, it's  a constuct of my apps global vars
Shared Sub UpdateAppSettings()
        ' Get the configuration file.
        Dim config As System.Configuration.Configuration = _
        ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
 
        ' Add an entry to appSettings.
        Dim newKey As String
        Dim newValue As String
 
        config.AppSettings.Settings.Clear()
 
        newKey = "DriveLetter"
        newValue = glo.DriverLetter
        config.AppSettings.Settings.Add(newKey, newValue)
 
        newKey = "LastDateProcessed"
        newValue = glo.LastDateProcesses
        config.AppSettings.Settings.Add(newKey, newValue)
 
        ' Save the configuration file.
        config.Save(ConfigurationSaveMode.Modified)
 
        ' Force a reload of the changed section.
        'ConfigurationManager.RefreshSection("appSettings")
 
    End Sub 'UpdateAppSettings
 
    ' Show how to use OpenExeConfiguration(string).
    Public Sub LoadAppSettings()
 
        Dim exePath As String = System.IO.Path.Combine( _
        Environment.CurrentDirectory, "DBTrans.exe")
 
        ' Get the configuration file.
        Dim config As System.Configuration.Configuration = _
        ConfigurationManager.OpenExeConfiguration(exePath)
 
        ' Get the AppSetins section.
        Dim appSettingSection As AppSettingsSection = _
        CType(config.GetSection("appSettings"), AppSettingsSection)
 
        Dim appSettings As NameValueCollection = _
        ConfigurationManager.AppSettings
 
        glo.PosDriverLetter = appSettings.Get("DriveLetter")
        glo.LastDateProcesses = CType(appSettings.Get("LastDateProcessed"), Date)
 
 
    End Sub
End Class