Public Class Config Public Property ConnectionString As String = "" Public Property Mandators As New List(Of Mandator) Public Property InputDirectory As String = "" Public Property OutputDirectory As String = "" Public Property Webservice As New WebServiceConfig() Public Property DefaultYearOverride As Integer = 0 Public Class WebServiceConfig Public Property BaseUrl As String = "http://127.0.0.1/EWL" Public Property Username As String = "Username" Public Property Password As String = "Password" End Class Public Class Mandator Public Property Order As Integer Public Property Name As String Public Property ArticleRegex As String End Class Public Function GetYear() As Integer If DefaultYearOverride > 0 Then Return DefaultYearOverride End If Return Now.Year End Function End Class