Load-Prozedur des Programms:
 
Dim FileWatcher As FileSystemWatcher
 
'FileEventHandler starten
        FileWatcher = New FileSystemWatcher
        If ReadValue(sKey, "Eingangsordner") <> "" Then
            FileWatcher.Path = ReadValue(sKey, "Eingangsordner")
        Else
            FileWatcher.Path = Application.StartupPath
        End If
        FileWatcher.NotifyFilter = NotifyFilters.FileName Or _
          NotifyFilters.Attributes Or NotifyFilters.LastAccess Or _
          NotifyFilters.LastWrite Or NotifyFilters.Security Or _
          NotifyFilters.Size
        AddHandler FileWatcher.Created, AddressOf OnFileReceive
        FileWatcher.EnableRaisingEvents = True

 Private Sub OnFileReceive(ByVal sender As Object, ByVal e As _
   System.IO.FileSystemEventArgs)
 
        Dim strExterneBezeichnung As String
        Dim Reader As StreamReader
        Dim boolBauteilGefunden As Boolean
        Dim boolResult As Object
        Dim Rechner As New clsCompiler
 
        If Not e.Name.ToLower = "matrix.txt" Then
            Exit Sub
        End If
 
        Try
            'Daten einlesen
            Reader = New StreamReader(e.FullPath)
            strExterneBezeichnung = Reader.ReadToEnd()
            strExterneBezeichnung.Trim(Chr(13))
            'Datei muss sofort wieder gelöscht werden
            Try
                Reader.Close()
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "1")
            End Try
            System.Threading.Thread.CurrentThread.Sleep(50)
            File.Delete(e.FullPath)
 
            'Daten aus Datenbank holen
            .....
 
 
            If boolBauteilGefunden Then
 
                'preCompiler vorbereiten
                ......
 
                'Kameras mit dem richtigen Programm initialisieren
                 ......
 
                WriteResult(boolResult)
            End If
 
        Catch ex As Exception
                MsgBox(ex.Message)
            End Try
 
    End Sub

    Public Sub WriteResult(ByVal ErrorOccured As Boolean)
 
        Dim strResult As String
        Dim Writer As StreamWriter
 
        If ErrorOccured Then
            strResult = "NIO;"
            'Noch alle Fehler anhängen
             ....
        Else
            strResult = "IO"
        End If
 
        Try
            If ReadValue(sKey, "Ausgangsordner") <> "" Then
                Writer = New StreamWriter(ReadValue(sKey, "Ausgangsordner"))
            Else
                Writer = New StreamWriter(Application.StartupPath)
            End If
 
            'String in die Datei schreiben
            Writer.Write(strResult)
            Writer.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
 
    End Sub

Der Zugriff auf den Pfad <MeinPfad> wurde verweigert.