| 

.NET C# Java Javascript Exception

2
Hallo habe mal ein älters VB net Programm im VisualStudio 2015 geöffnet... jetzt habe ich das Problem das es bei einen Thread Fehler hängen bleibt... kann einer helfen! Danke

###################
'Imports System.IO
'Imports System.Diagnostics
Imports System.Threading


Public Class Form1

Private Property watchfolder As IO.FileSystemWatcher

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub



Private Sub btn_startwatch_Click(sender As Object, e As EventArgs) Handles btn_startwatch.Click
Dim Thread As New Threading.Thread(AddressOf StartWatch)
Thread.Start()
'#####################################################

End Sub
Private Sub StartWatch()
watchfolder = New System.IO.FileSystemWatcher()

' Dies ist der Ordnerpfad, den wir überwachen wollen
watchfolder.Path = txt_watchpath.Text
' Fügen Sie eine Liste von Filtern hinzu, die sie angeben möchten
' Stellen Sie sicher, dass Sie ODER für jeden Filter verwenden, wie wir wissen
' alle von diesen drei Filter setzten.

watchfolder.NotifyFilter = IO.NotifyFilters.DirectoryName
watchfolder.NotifyFilter = watchfolder.NotifyFilter Or IO.NotifyFilters.FileName
watchfolder.NotifyFilter = watchfolder.NotifyFilter Or IO.NotifyFilters.Attributes

' Füge den Handler jedem Event hinzu
AddHandler watchfolder.Changed, AddressOf logchange
AddHandler watchfolder.Created, AddressOf logchange
AddHandler watchfolder.Deleted, AddressOf logchange

' Füge den Umbenennungs-Handler hinzu, da die Signatur anders ist
AddHandler watchfolder.Renamed, AddressOf logrename

' Setzen Sie diese Eigenschaft auf true, um den Ordner zu beobachten
watchfolder.EnableRaisingEvents = True

##Fehler tritt hier auf ######

btn_startwatch.Enabled = False 'False # Fehler hier bleibt es hängen !!!!
btn_stop.Enabled = True

'End of code for btn_start_click

End Sub

Private Sub logchange(ByVal source As Object, ByVal e As System.IO.FileSystemEventArgs)
' Legen Sie eine Variable auf den eigene Dateien Pfad.
'Dim mydocpath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

If e.ChangeType = IO.WatcherChangeTypes.Changed Then
txt_folderactivity.Text &= "File " & e.FullPath & " wurde verändert" & vbCrLf
' Schreiben Sie den Text in eine neue Datei namens "WriteFile.txt".
' File.WriteAllText(mydocpath & Convert.ToString("\WriteFile.txt"), e.ChangeType)


End If
If e.ChangeType = IO.WatcherChangeTypes.Created Then
txt_folderactivity.Text &= "File " & e.FullPath & " wurde erstellt" & vbCrLf
End If
If e.ChangeType = IO.WatcherChangeTypes.Deleted Then
txt_folderactivity.Text &= "File " & e.FullPath & " wurde gelöscht" & vbCrLf
End If
'################# Logger File Schreiben #######################
' Erstellen Sie ein String-Array mit den Textzeilen
' Dim text As String = "First line" & Environment.NewLine

' Schreiben Sie den Text in eine neue Datei namens "WriteFile.txt".
'File.WriteAllText(mydocpath & Convert.ToString("\WriteFile.txt"), e.ChangeType)

' Erstellen Sie ein String-Array mit den zusätzlichen Textzeilen
'Dim lines() As String = {"New line 1", "New line 2"}

' Neue Textzeilen an die Datei anhängen
'File.AppendAllLines(mydocpath & Convert.ToString("\WriteFile.txt"), lines)



End Sub


Public Sub logrename(ByVal source As Object, ByVal e As System.IO.RenamedEventArgs)

txt_folderactivity.Text &= "File" & e.OldName & " Wurde umbenannt in " & e.Name & vbCrLf

End Sub



Private Sub btn_stop_Click(sender As Object, e As EventArgs) Handles btn_stop.Click

' Stop watching the folder
watchfolder.EnableRaisingEvents = False
btn_startwatch.Enabled = True
btn_stop.Enabled = False



End Sub

Private Sub txt_folderactivity_TextChanged(sender As Object, e As EventArgs) Handles txt_folderactivity.TextChanged

End Sub

Private Sub txt_watchpath_TextChanged(sender As Object, e As EventArgs) Handles txt_watchpath.TextChanged

End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

Private Sub butSearch_Click(sender As Object, e As EventArgs) Handles butSearch.Click
ChooseFolder()

End Sub
Public Sub ChooseFolder()
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
txt_watchpath.Text = FolderBrowserDialog1.SelectedPath
End If
End Sub



Private Sub FolderBrowserDialog1_HelpRequest(sender As Object, e As EventArgs) Handles FolderBrowserDialog1.HelpRequest

End Sub

Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

End Sub
End Class
28.03.2019
tsmeier 51 1 3