Imports System
Imports System.IO
 
Public Class Form1
    Private Watch As New FileSystemWatcher()
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        AddHandler Watch.Created, AddressOf Watch_Created
 
        Try
            Watch.Path = "D:\crmimport"
            Watch.Filter = "*.xml"
            Watch.IncludeSubdirectories = True
            Watch.EnableRaisingEvents = True
        Catch Err As Exception
            MsgBox(Err.ToString, MsgBoxStyle.Critical, "Titel")
            'Console.WriteLine(Err)
        End Try
    End Sub
 
    Private Sub Watch_Created(ByVal sender As Object, _
          ByVal e As System.IO.FileSystemEventArgs)
 
        ' Der Liste den neuen Dateinamen hinzufügen.
        lvProtokoll.Items.Add("'" & e.FullPath & _
          "' Status: " & e.ChangeType.ToString())
 
 
    End Sub
 
End Class