40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
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
|