Imports System.Xml
Imports System.IO
Imports System.Reflection

Public Class Parameters
    Dim sconnectionstringVVW As String
    Property ConnectionStringVVW() As String
        Get
            Return sconnectionstringVVW
        End Get
        Set(ByVal value As String)
            sconnectionstringVVW = value
        End Set
    End Property

    Dim mtmppath As String
    Property TMPPath() As String
        Get
            Return mtmppath
        End Get
        Set(ByVal value As String)
            mtmppath = value
        End Set
    End Property


    Dim xmldoc As New XmlDocument

    Public Sub New()
        xmldoc.Load(Me.ApplicationPath + "Parameters.xml")
        Me.ConnectionStringVVW = xmldoc.SelectSingleNode("/Configuration/SQLConnVVW").InnerText
        Me.TMPPath = xmldoc.SelectSingleNode("/Configuration/TMPPath").InnerText
    End Sub

    Public Function ApplicationPath() As String
        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
    End Function

End Class