Public Class clsFileCounter
    Dim Al As New ArrayList()

    Dim m_sent As Integer
    Property Sent() As Integer
        Get
            Return m_sent
        End Get
        Set(ByVal Value As Integer)
            m_sent = Value
        End Set
    End Property

    Dim m_got As Integer
    Property got() As Integer
        Get
            Return m_got
        End Get
        Set(ByVal Value As Integer)
            m_got = Value
        End Set
    End Property

    Public Sub Add(ByVal Application As String, ByVal counter As Integer)
        Dim i As Integer
        Dim setvalue As Boolean = False
        Dim d As New GenericList("", 0)
        For i = 0 To Me.Al.Count - 1
            d = Al.Item(i)
            If d.Application = Application Then
                d.Counter = d.Counter + counter
                Al(i) = d
                setvalue = True
            End If
        Next
        If Not setvalue Then
            Al.Add(New GenericList(Application, counter))
        End If
        d = Nothing
    End Sub

    Public Sub Write_File(ByVal log As clsLog)
        Dim i As Integer
        Dim d As New GenericList("", 0)
        FileOpen(11, Params.PathColdDateien + "FileCount.txt", OpenMode.Output)
        For i = 0 To Al.Count - 1
            d = Al(i)
            PrintLine(11, d.Application & ": " & LTrim(Str(d.Counter)))
            ArchivierteDokumente = d.Counter
            log.InsertJournale("Anzahl Dokumente - " & d.Application & ": " & LTrim(Str(d.Counter)), clsLog.Enum_InfoTyp.Information)
        Next
        FileClose(11)
        Al.Clear()
    End Sub

    Public Function CountReturnfiles(ByVal log As clsLog) As Boolean
        FileOpen(11, Params.PathColdDateien + "FileCount.txt", OpenMode.Input)
        Dim total1 As Integer = 0
        Dim total2 As Integer = 0
        Dim i As Integer
        Dim s As String = ""
        Try
            Input(11, s)
            While s <> Nothing Or EOF(11)
                s = Right(s, Len(s) - 12)
                i = Val(s)
                total1 = total1 + i
                Input(11, s)
            End While
        Catch
        Finally
            FileClose(11)
        End Try
        FileOpen(11, Params.PathColdDateien + Params.FileReturnCode, OpenMode.Input)
        Try
            Input(11, s)
            Input(11, s)
            While s <> Nothing Or EOF(11)
                s = Right(s, Len(s) - 11)
                i = Val(s)
                total2 = total2 + i
                Input(11, s)
            End While
        Catch
        Finally
            FileClose(11)
        End Try
        Me.Sent = total1
        Me.got = total2
        If total2 > total1 Then
            log.InsertJournale("COLD-Return: Warnung: Anzahl zurückgemeldete Dateien stimmt nicht mit der Anz. gesendeten überein: Anzahl Return: " & Str(total2) & " - gesendet: " & Str(total1), clsLog.Enum_InfoTyp.Information)
            Return True
        Else
            If total2 <> total1 Then
                log.InsertJournale("COLD-Return: Anzahl zurückgemeldete Dateien stimmt nicht mit der Anz. gesendeten überein: Anzahl Return: " & Str(total2) & " - gesendet: " & Str(total1), clsLog.Enum_InfoTyp.Information)
                Return False
            End If
            Return True
        End If
    End Function

End Class

Public Class GenericList
    Private _Application As String
    Private _counter As Integer

    Property Application() As String
        Get
            Return _Application
        End Get
        Set(ByVal Value As String)
            _Application = Value
        End Set
    End Property

    Property Counter() As Integer
        Get
            Return _counter
        End Get
        Set(ByVal Value As Integer)
            _counter = Value
        End Set
    End Property

    Public Sub New(ByVal Application As String, ByVal Counter As Integer)
        Me.Application = Application
        Me.Counter = Counter
    End Sub

End Class