Public Class Config Public Property ConnectionString As String = "" Public Property Mandators As New List(Of MandatorConfig) Public Property InputDirectory As String = "" Public Property OutputDirectory As String = "" Public Property SchemaDirectory 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" Public Property ImportBasePath As String = "" Public Property ImportRelativePath As String = "" End Class Public Class MandatorConfig 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