FileSystemWatcher funktioniert nicht
Ich fügte hinzuFileSystemWatcher
in Form1_Laden wie folgt:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
....................
Dim watcher As New FileSystemWatcher()
'For watching current directory
watcher.Path = "/"
'For watching status.txt for any changes
watcher.Filter = "status.txt"
watcher.NotifyFilter = NotifyFilters.LastWrite
watcher.EnableRaisingEvents = True
AddHandler watcher.Changed, AddressOf OnChanged
End Sub
Ich habe eine OnChanged-Funktion, die eine einfache MessageBox ist. Trotzdem, wenn ich das @ ändestatus.txt
Datei, es wird kein Meldungsfeld angezeigt.