You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
166 lines
4.1 KiB
166 lines
4.1 KiB
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
|