Module ModuloConfig Sub MainConfig() ReadAllSettings() ' legge tutto il contenuto dell' app setting end sub Sub ReadAllSettings() ' legge tutto l' appsetting Try Dim appSettings = ConfigurationManager.AppSettings If appSettings.Count = 0 Then Console.WriteLine("AppSettings is empty.") ' è vuoto Else For Each key As String In appSettings.AllKeys 'legge tutte le key Console.WriteLine("Key: {0} Value: {1}", key, appSettings(key)) Next End If Catch e As ConfigurationErrorsException Console.WriteLine("Error reading app settings") End Try End Sub End Module
key, appSettings(key)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)