Class sammlung_do
    Dim test As String
    Event sammelfree()
    Public Sub do_sammlung()
        Dim _datei As String
        Dim lang As Int16
        Dim verzeichnislang As Int16
        Dim zeile As String
        Dim sammeltext As String
        Dim _pfad As String
        Dim verzeichnis As String
        Dim verzeichnis_ As String
        Dim sammelfile As String
        Dim sfile As String
        Dim cn_ As OleDbConnection
        Dim cmd_ As OleDbCommand
        Dim dr_ As OleDbDataReader
        Dim suchverzeichnis As String
        Dim moveverzeichnis As String
 
        Dim counttest As Int16
        Dim array(0)
 
        SyncLock sd_queue.syncroot
            _datei = sd_queue.Dequeue
        End SyncLock
        SyncLock sp_queue.syncroot
            _pfad = sp_queue.Dequeue
        End SyncLock
        Do
            Try
                Dim sr = New StreamReader(_pfad)
                test = sr.ReadLine()
                sr.close()
                Exit Do
            Catch ex As Exception
                Thread.Sleep(1000)
            End Try
        Loop
 
        lang = Len(_datei)
        verzeichnislang = Len(_pfad)
        lang = verzeichnislang - lang
        verzeichnis = Left(_pfad, lang)
        cn_ = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
          "Source=C:\tgol\Job\Job\Job.mdb;")
        cn_.Open()
        suchverzeichnis = Left(_pfad, lang - 1)
        cmd_ = New OleDbCommand("Select sfile FROM tbl_job where pfad = '" & _
          suchverzeichnis & "'", cn_)
        dr_ = cmd_.ExecuteReader
 
        While dr_.Read()
            sfile = dr_(0)
        End While
        dr_.Close()
        cn_.Close()
 
        verzeichnis_ = verzeichnis & sfile
        moveverzeichnis = verzeichnis & "processed\" & _datei
 
        If _datei = sfile Then
            RaiseEvent sammelfree()
            Exit Sub
        End If
        Try
            Dim oRead As StreamReader = New StreamReader(_pfad)
            Dim oWrite As StreamWriter = New StreamWriter(verzeichnis_, True)
 
            zeile = oRead.ReadToEnd()
            oWrite.WriteLine(zeile)
            oRead.Close()
            oWrite.Close()
 
            File.Move(_pfad, moveverzeichnis)
            File.Delete(_pfad)
        Catch ex As Exception
            MsgBox("vb.net stinkt " & _datei)
        End Try
 
        _datei = ""
        lang = 0
        verzeichnis = ""
        zeile = ""
        sammeltext = ""
        _pfad = ""
        verzeichnis = ""
        sammelfile = ""
        sfile = ""
        suchverzeichnis = ""
        moveverzeichnis = ""
 
        cn_ = Nothing
        cmd_ = Nothing
        dr_ = Nothing
        RaiseEvent sammelfree()
 
    End Sub
End Class