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
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 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
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