Overvåg mappe

Har fundet en løsning

Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim watcher As New FileSystemWatcher("\\mps1\w-erp\files\start_run\")
        watcher.EnableRaisingEvents = True

        AddHandler watcher.Changed, AddressOf watcher_Changed
    End Sub
    Private Sub watcher_Changed(ByVal sender As Object, ByVal e As FileSystemEventArgs)
        MsgBox(e.FullPath)
    End Sub
End Class

Det henter ikke den sidste linie.

Men hvis filen ikke er aaben, saa er det naturligvis nemt at laese den sidste linie.