Imports System.IO
Imports System.Text.RegularExpressions
 
 
 
Public Class Form1
 
    Dim IndexL As New List(Of IO.FileSystemWatcher)
    Private arrL As New ArrayList
    Const txtPFAD As String = "\\Server\Release\"
    Const txtDATN As String = "Server.ini"
 
 
    Sub Formfuellen()
        Dim lvwItem As ListViewItem = New ListViewItem
 
        Dim c_textdatei As New TextDatei()
        Dim arrL As ArrayList = c_textdatei.ReadFileZeile(txtPFAD & txtDATN)
        For x As Integer = 0 To arrL.Count - 1
            lvwItem = Me.ListView1.Items.Add(arrL(x).ToString)
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Formfuellen()
    End Sub
 
    Private Sub btn_Start_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Start.Click
        Me.btn_Start.Enabled = False
        Me.btn_Stop.Enabled = True
        Me.btn_Stop.Visible = True
 
        Me.NotifyIcon1.Icon = My.Resources.transport139
 
        Dim m_FSW As IO.FileSystemWatcher
        For x As Integer = 0 To ListView1.Items.Count - 1
            If Me.ListView1.Items(x).Checked Then
                Dim sPfad As String = "\\" & Me.ListView1.Items(x).Text & _
                  rString
 
                m_FSW = New FileSystemWatcher(sPfad)
 
                m_FSW.EnableRaisingEvents = True
 
                m_FSW.Filter = "*.log"
 
                AddHandler m_FSW.Changed, AddressOf m_FSW_Changed
                AddHandler m_FSW.Deleted, AddressOf m_FSW_Deleted
                AddHandler m_FSW.Created, AddressOf m_FSW_Created
                AddHandler m_FSW.Renamed, AddressOf m_FSW_Renamed
 
                IndexL.Add(m_FSW)
            End If
        Next
        Me.Hide()
    End Sub
 
    Private Sub m_FSW_Changed(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs)
        MessageBox.Show(e.FullPath & " wurde geändert")
    End Sub
 
    Private Sub m_FSW_Created(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs)
        MessageBox.Show(e.FullPath & " wurde erstellt")
    End Sub
 
    Private Sub m_FSW_Deleted(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs)
        MessageBox.Show(e.FullPath & " wurde gelöscht")
    End Sub
    Private Sub m_FSW_Renamed(ByVal sender As Object, ByVal e As _
      System.IO.RenamedEventArgs)
        MessageBox.Show(e.FullPath & " wurde umbenannt")
    End Sub
 
 
End Class