Imports System
Imports System.IO
Imports System.Threading
Imports System.Windows.Forms
 
Public Class Form1
    Private Delegate Sub DelegateSub()
    Private lstboxAktualisieren As New DelegateSub(AddressOf lboxaktual)
 
    Dim FWatcher As New Thread(AddressOf FWATCHER1)
 
    Public ReadString As String = ""
    Public FileString As String
 
    '**********************************
    Public Sub New()
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
    End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _ 
Handles Timer1.Tick
        Debug.Print("jetzt Timer")
        Debug.Print ("Jetzt soll lstbox geleert werden.")
        'funktion leeren aufrufen
        leeren
    End Sub
 
 
 Sub anzeigen(ByVal source As Object, ByVal e As FileSystemEventArgs)
 
        Dim lstbox As New ListBox
        Dim fr As StreamReader
        'fr = New StreamReader("D:\tmp\Test\test.txt")
        fr = New StreamReader(e.FullPath)
        Do
            FileString = fr.ReadLine
            If FileString <> Nothing Then
                Me.Invoke(lstboxAktualisieren)
            End If
            ReadString = ReadString & vbCrLf & FileString
        Loop Until (FileString = Nothing)
        fr.Close()
        '******************************
        'Timer starten
''''Hier jetzt reagieren --> nach 2 minuten die lstbox leeren
        Timer1.Enabled = True
        Timer1.Interval = 120000
        '******************************
        My.Application.DoEvents()
    End Sub
 
    Sub leeren()
        lstBox.Items.Clear()
    End Sub
 
Sub lboxaktual()
        'Debug.Print("Jetzt sollte angezeigt werden")
        lstBox.Items.Add(FileString)
    End Sub
    Private Sub FWATCHER1()
        'FileWatcher
        Dim FWatch As New FileSystemWatcher()
        FWatch.Path = ("D:\tmp\Test\")
        FWatch.Filter = "*.txt"
        'wenn ein textfile erstellt wird reagiere
        AddHandler FWatch.Created, AddressOf anzeigen
        FWatch.EnableRaisingEvents = True
    End Sub
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        FWATCHER1()
    End Sub
    Private Sub Clear_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Clear.Click
        lstBox.Items.Clear()
    End Sub
 
End Class