Public Class ClsParameters

#Region "Deklarationen"

    Dim m_applicationid As String
    Property ApplicationID() As String
        Get
            Return m_applicationid
        End Get
        Set(ByVal Value As String)
            m_applicationid = Value
        End Set
    End Property

    Dim m_watchdirectory As String
    Property WatchDirectory() As String
        Get
            Return m_watchdirectory
        End Get
        Set(ByVal Value As String)
            m_watchdirectory = Value
        End Set
    End Property

    Dim m_SaveDir As String
    Property SaveDir() As String
        Get
            Return m_SaveDir
        End Get
        Set(ByVal Value As String)
            m_SaveDir = Value
        End Set
    End Property

    Dim m_paramsedkb01 As String
    Property ParamsEDKB01() As String
        Get
            Return m_paramsedkb01
        End Get
        Set(ByVal Value As String)
            m_paramsedkb01 = Value
        End Set
    End Property



    Dim m_timerintervall As Integer
    Property TimerIntervall() As Integer
        Get
            Return m_timerintervall
        End Get
        Set(ByVal Value As Integer)
            m_timerintervall = Value * 60 * 1000
        End Set
    End Property

    Dim m_Wait_Before_Start_EDKB01 As Integer
    Property Wait_Before_Start_EDKB01() As Integer
        Get
            Return m_Wait_Before_Start_EDKB01
        End Get
        Set(ByVal Value As Integer)
            m_Wait_Before_Start_EDKB01 = Value * 60 * 1000
        End Set
    End Property

    Dim m_MailadresseOK As String
    Property MailAdresseOK() As String
        Get
            Return m_MailadresseOK
        End Get
        Set(ByVal Value As String)
            m_MailadresseOK = Value
        End Set
    End Property

    Dim m_MailadresseNOK As String
    Property MailAdresseNOK() As String
        Get
            Return m_MailadresseNOK
        End Get
        Set(ByVal Value As String)
            m_MailadresseNOK = Value
        End Set
    End Property

    Dim m_SaveDirError As String
    Property SaveDirError() As String
        Get
            Return m_SaveDirError
        End Get
        Set(ByVal Value As String)
            m_SaveDirError = Value
        End Set
    End Property

    Dim m_pathtemp As String
    Property PathTemp() As String
        Get
            Return m_pathtemp
        End Get
        Set(ByVal Value As String)
            m_pathtemp = Value
        End Set
    End Property

    Dim m_cmddatei As String
    Property CMDDatei() As String
        Get
            Return m_cmddatei
        End Get
        Set(ByVal Value As String)
            m_cmddatei = Value
        End Set
    End Property

    Dim m_copystat As String
    Property CMDCopyStat() As String
        Get
            Return m_copystat
        End Get
        Set(ByVal Value As String)
            m_copystat = Value
        End Set
    End Property

    Dim m_Zeitintervall As Integer
    Property Zeitintervall() As Integer
        Get
            Return m_Zeitintervall
        End Get
        Set(ByVal Value As Integer)
            m_Zeitintervall = Value
        End Set
    End Property

#End Region

    Public Function Loadparameters() As String
        Try
            oread = IO.File.OpenText(Globals.ApplicationPath + "parameters.cfg")
            Me.ApplicationID = ParamValue(oread.ReadLine)
            Me.WatchDirectory = ParamValue(oread.ReadLine)
            Me.SaveDir = ParamValue(oread.ReadLine)
            Me.ParamsEDKB01 = ParamValue(oread.ReadLine)
            Me.TimerIntervall = ParamValue(oread.ReadLine)
            Me.Wait_Before_Start_EDKB01 = ParamValue(oread.ReadLine)
            Me.MailAdresseOK = ParamValue(oread.ReadLine)
            Me.MailAdresseNOK = ParamValue(oread.ReadLine)
            Me.SaveDirError = ParamValue(oread.ReadLine)
            oread.Close()
            Return ""
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function



    Private Function ParamValue(ByVal sinput As String) As String
        Dim splitter() As String
        splitter = Split(sinput, "=")
        ParamValue = splitter(1)
    End Function
End Class