Der aufrufende Thread kann nicht auf dieses Objekt zugreifen - in Verbindung mit WPF und FileSystemWatcher

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von mpmichael.

    Der aufrufende Thread kann nicht auf dieses Objekt zugreifen - in Verbindung mit WPF und FileSystemWatcher

    Hallo und frohe Weihnachten,

    ich bin grade dabei ein Programm zu entwerfen, welches Verzeichnisse überwachen soll. Dazu habe ich eine einfache Oberfläche erstellt. Ich stoße bei der Programmausführung aber auf einen Fehler, den ich selbst mit Google nicht beheben konnte.
    Vielleicht kann hier jemand helfen. Der Fehler lautet:

    VB.NET-Quellcode

    1. Nachricht = Der aufrufende Thread kann nicht auf dieses Objekt zugreifen, da sich das Objekt im Besitz eines anderen Threads befindet.
    2. Quelle = WindowsBase



    Hier der Quellcode:

    XML-Quellcode

    1. <Window x:Class="MainWindow"
    2. xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    3. xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    4. xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    5. xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    6. xmlns:local="clr-namespace:FolderWatch"
    7. mc:Ignorable="d"
    8. Title="MainWindow" Height="464" Width="800">
    9. <Grid Margin="0,0,0,-6">
    10. <Grid.RowDefinitions>
    11. <RowDefinition Height="229.021" />
    12. <RowDefinition />
    13. </Grid.RowDefinitions>
    14. <Grid.ColumnDefinitions>
    15. <ColumnDefinition />
    16. <ColumnDefinition Width="100" />
    17. </Grid.ColumnDefinitions>
    18. <DataGrid x:Name="DG_FolderList" Margin="10,41,10,20" SelectionMode="Single" IsReadOnly="True" CanUserAddRows="False" CanUserDeleteRows="False" FontFamily="Consolas" FontSize="10" AlternatingRowBackground="#FFE1ECE7" AlternationCount="1">
    19. </DataGrid>
    20. <Label Content="Watched Folder" HorizontalAlignment="Left" Margin="10,10,0,0" VerticalAlignment="Top" Height="26" Width="93" />
    21. <Button x:Name="BT_AddFolder" Grid.Column="1" Content="Add Folder" HorizontalAlignment="Center" Margin="0,41,0,0" VerticalAlignment="Top" Width="80" Height="20" FontSize="10" />
    22. <Button x:Name="BT_DelFolder" Grid.Column="1" Content="Remove Folder" HorizontalAlignment="Center" Margin="0,66,0,0" VerticalAlignment="Top" Width="80" Height="20" FontSize="10" />
    23. <Label Content="Watch Log" HorizontalAlignment="Left" Margin="10,10,0,0" VerticalAlignment="Top" Height="26" Width="93" Grid.Row="1" />
    24. <TextBox x:Name="TB_WatchLog" Margin="10,36,10,45" Grid.Row="1" TextWrapping="Wrap" />
    25. <Button x:Name="BT_CLRLog" Grid.Column="1" Content="ClearLog" HorizontalAlignment="Center" Margin="0,36,0,0" VerticalAlignment="Top" Width="80" Height="20" FontSize="10" Grid.Row="1" />
    26. <Button x:Name="BT_Start" Grid.Column="1" Content="Start" HorizontalAlignment="Center" Margin="0,159,0,0" VerticalAlignment="Top" Width="80" Height="20" FontSize="10" IsEnabled="False" />
    27. <Button x:Name="BT_Stop" Grid.Column="1" Content="Stop" HorizontalAlignment="Center" Margin="0,189,0,0" VerticalAlignment="Top" Width="80" Height="20" FontSize="10" IsEnabled="False" />
    28. </Grid>
    29. </Window>


    Und der VB-Code

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports Ookii.Dialogs.Wpf
    4. Class MainWindow
    6. #Region "Definitions"
    8. Dim SaveFile As String = FileIO.FileSystem.CurrentDirectory & "\settings.cnf"
    9. Dim TheFolders As New List(Of FolderItems)
    11. #End Region
    13. #Region "Subs and Funcs"
    15. Private Sub Init()
    16. 'Load SaveFile
    17. LoadList()
    18. 'Fill Grid
    19. DG_FolderList.ItemsSource = TheFolders
    20. CheckButtons()
    21. End Sub
    23. Private Sub SaveList()
    24. If File.Exists(SaveFile) Then File.Delete(SaveFile)
    25. For Each LineElement In TheFolders
    26. Dim LineOut As String = LineElement.FolderPath & ";" & LineElement.FolderChDate & ";" & LineElement.FolderLastStatus
    27. File.AppendAllText(SaveFile, LineOut)
    28. Next
    29. End Sub
    31. Private Sub LoadList()
    32. Dim Tlist As New List(Of String)
    33. TheFolders.Clear()
    34. If File.Exists(SaveFile) Then
    35. Tlist.AddRange(File.ReadAllLines(SaveFile).ToArray)
    36. For Each LineElement In Tlist
    37. Dim LineParts() As String = LineElement.Split(";")
    38. Dim TFObject As New FolderItems With {
    39. .FolderPath = LineParts(0)}
    40. If LineParts.Length > 1 Then TFObject.FolderChDate = LineParts(1)
    41. If LineParts.Length > 2 Then TFObject.FolderLastStatus = LineParts(2)
    42. TFObject.FolderStatus = "stopped"
    43. TheFolders.Add(TFObject)
    44. Next
    45. DG_FolderList.Items.Refresh()
    46. End If
    47. CheckButtons()
    48. End Sub
    50. Private Sub CheckButtons()
    51. If TheFolders.Count > 0 Then
    52. BT_Start.IsEnabled = True
    53. BT_DelFolder.IsEnabled = True
    54. Else
    55. BT_Start.IsEnabled = False
    56. BT_DelFolder.IsEnabled = False
    57. End If
    58. If TB_WatchLog.Text = "" Then
    59. BT_CLRLog.IsEnabled = False
    60. Else
    61. BT_CLRLog.IsEnabled = True
    62. End If
    63. End Sub
    65. Private Sub UpdFolderChg(ChgFile As String, ChgType As String)
    66. Dim FolderPath As String = ChgFile.Substring(0, ChgFile.LastIndexOf("\"))
    67. If Not FolderPath = "" Then
    68. Dim Idx As Integer = TheFolders.FindIndex(Function(x) x.FolderPath.Equals(FolderPath))
    69. If Not Idx = -1 Then
    70. TheFolders(Idx).FolderChDate = Now
    71. TheFolders(Idx).FolderLastStatus = ChgType
    72. End If
    73. FillBoxSub(Now & " " & ChgType & " : " & ChgFile & vbLf)
    74. End If
    75. End Sub
    77. Private Sub FillBoxSub(NewText As String)
    78. Dim MsgText As String = NewText & TB_WatchLog.Text
    79. TB_WatchLog.Text = MsgText
    80. End Sub
    82. Private Sub AddWatch(FolderItem As FolderItems)
    83. Try
    84. If Directory.Exists(FolderItem.FolderPath) Then
    85. Dim FWatch As New FileSystemWatcher With {
    86. .Path = FolderItem.FolderPath,
    87. .Filter = "",
    88. .EnableRaisingEvents = True,
    89. .IncludeSubdirectories = False,
    90. .NotifyFilter = NotifyFilters.Attributes Or
    91. NotifyFilters.CreationTime Or
    92. NotifyFilters.DirectoryName Or
    93. NotifyFilters.FileName Or
    94. NotifyFilters.LastAccess Or
    95. NotifyFilters.LastWrite Or
    96. NotifyFilters.Security Or
    97. NotifyFilters.Size
    98. }
    99. AddHandler FWatch.Created, AddressOf FSWNotify
    100. AddHandler FWatch.Deleted, AddressOf FSWNotify
    101. AddHandler FWatch.Changed, AddressOf FSWNotify
    102. AddHandler FWatch.Error, AddressOf FSWOnError
    103. End If
    104. FolderItem.FolderStatus = "watching"
    105. Catch ex As Exception
    106. ShowError(ex)
    107. End Try
    108. End Sub
    110. Private Sub FSWNotify(sender As Object, e As FileSystemEventArgs)
    111. UpdFolderChg(e.FullPath, e.ChangeType.ToString)
    112. End Sub
    114. Private Sub FSWOnError(sender As Object, e As ErrorEventArgs)
    115. Dim ex As Exception = e.GetException()
    116. ShowError(ex)
    117. CheckButtons()
    118. End Sub
    120. Private Sub ShowError(ex As Exception)
    121. Dim Dlg As New TaskDialog With {
    122. .Content = ex.Message & vbLf & ex.StackTrace,
    123. .WindowTitle = "Exception occured"}
    124. Dlg.ShowDialog()
    125. End Sub
    127. #End Region
    129. #Region "Main"
    131. Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
    132. Init()
    134. End Sub
    136. #End Region
    138. #Region "Buttons"
    140. Private Sub BT_AddFolder_Click(sender As Object, e As RoutedEventArgs) Handles BT_AddFolder.Click
    141. Dim OFD As New VistaFolderBrowserDialog
    142. OFD.Description = "Verzeichnis auswählen"
    143. If OFD.ShowDialog Then
    144. Dim TItem As New FolderItems With {.FolderPath = OFD.SelectedPath, .FolderChDate = Now, .FolderStatus = "stopped", .FolderLastStatus = "nope"}
    145. TheFolders.Add(TItem)
    146. DG_FolderList.Items.Refresh()
    147. End If
    148. SaveList()
    149. CheckButtons()
    150. End Sub
    152. Private Sub BT_DelFolder_Click(sender As Object, e As RoutedEventArgs) Handles BT_DelFolder.Click
    153. If Not DG_FolderList.SelectedIndex = -1 Then
    154. TheFolders.RemoveAt(DG_FolderList.SelectedIndex)
    155. DG_FolderList.Items.Refresh()
    156. End If
    157. SaveList()
    158. CheckButtons()
    159. End Sub
    161. Private Sub BT_CLRLog_Click(sender As Object, e As RoutedEventArgs) Handles BT_CLRLog.Click
    162. TB_WatchLog.Text = ""
    163. CheckButtons()
    164. End Sub
    166. Private Sub BT_Start_Click(sender As Object, e As RoutedEventArgs) Handles BT_Start.Click
    167. For Each MemItem As FolderItems In TheFolders
    168. AddWatch(MemItem)
    169. Next
    170. DG_FolderList.Items.Refresh()
    171. End Sub
    173. Private Sub BT_Stop_Click(sender As Object, e As RoutedEventArgs) Handles BT_Stop.Click
    175. End Sub
    177. #End Region
    179. End Class
    181. Public Class FolderItems
    182. Public Property FolderPath As String
    183. Public Property FolderChDate As String
    184. Public Property FolderStatus As String
    185. Public Property FolderLastStatus As String
    186. End Class


    Beste Grüße
    Martin

    Wann genau tritt der Fehler auf?
    Und was sind VistaFolderBrowserDialog und TaskDialog
    Ich kann das scheinbar nicht nachstellen ohne mir irgend ein nugetpacket oder so zu installieren. Und das machen ich nicht.
    Rechtschreibfehler betonen den künstlerischen Charakter des Autors.

    Hallo,

    der Fehler tritt auf in Zeile 78. Genau dann, wenn er die Textbox aktualisieren soll.
    Ich bin schon soweit, das es etwas mit dem Thread-Handling zu tun hat. Aber keien Schimmer wie ich das lösen kann.
    VistaFolderBrowserDialog und TaskDialog sind aus den ookii.org/software/dialogs/ und ein Substitut für FolderBrowserDialog und MsgBox.

    Hallo,

    danke für den Hinweis. Ich habe mir das angesehen - aber ich meine so recht verstanden habe ich es zwar logisch - aber syntaktisch und von der Zuordnung her wohl nicht. Folgendes habe ich gemacht - aber ich bekomme noch immer den Fehler:

    System.InvalidOperationException
    HResult=0x80131509
    Nachricht = Der aufrufende Thread kann nicht auf dieses Objekt zugreifen, da sich das Objekt im Besitz eines anderen Threads befindet.
    Quelle = WindowsBase
    Stapelüberwachung:
    bei System.Windows.Threading.Dispatcher.VerifyAccess()
    bei System.Windows.DependencyObject.GetValue(DependencyProperty dp)
    bei System.Windows.Controls.TextBox.get_Text()
    bei FolderWatch.MainWindow.FillBoxSub(String NewText) in F:\source\Projects\FolderWatch\FolderWatch\MainWindow.xaml.vb: Zeile92

    Den Code habe ich wie folgt angepasst Zeilen 13/86/87:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports Ookii.Dialogs.Wpf
    3. Imports System.Windows.Threading
    5. Class MainWindow
    7. #Region "Definitions"
    9. Dim SaveFile As String = FileIO.FileSystem.CurrentDirectory & "\settings.cnf"
    10. Dim TheFolders As New List(Of FolderItems)
    11. Dim ActionFile As String = FileIO.FileSystem.CurrentDirectory & "\actionlog.acl"
    13. [b][color=#FF0000]Public Delegate Sub UpdTB(NewText As String)[/color][/b]
    15. #End Region
    17. #Region "Subs and Funcs"
    19. Private Sub Init()
    20. 'Load SaveFile
    21. LoadList()
    22. 'Fill Grid
    23. DG_FolderList.ItemsSource = TheFolders
    24. CheckButtons()
    25. End Sub
    27. Private Sub SaveList()
    28. If File.Exists(SaveFile) Then File.Delete(SaveFile)
    29. For Each LineElement In TheFolders
    30. Dim LineOut As String = LineElement.FolderPath & ";" & LineElement.FolderChDate & ";" & LineElement.FolderLastStatus & vbLf
    31. File.AppendAllText(SaveFile, LineOut)
    32. Next
    33. End Sub
    35. Private Sub LoadList()
    36. Dim Tlist As New List(Of String)
    37. TheFolders.Clear()
    38. If File.Exists(SaveFile) Then
    39. Tlist.AddRange(File.ReadAllLines(SaveFile).ToArray)
    40. For Each LineElement In Tlist
    41. Dim LineParts() As String = LineElement.Split(";")
    42. Dim TFObject As New FolderItems With {
    43. .FolderPath = LineParts(0)}
    44. If LineParts.Length > 1 Then TFObject.FolderChDate = LineParts(1)
    45. If LineParts.Length > 2 Then TFObject.FolderLastStatus = LineParts(2)
    46. TFObject.FolderStatus = "stopped"
    47. TheFolders.Add(TFObject)
    48. Next
    49. DG_FolderList.Items.Refresh()
    50. End If
    51. CheckButtons()
    52. End Sub
    54. Private Sub LoadActionLog()
    55. If File.Exists(ActionFile) Then
    56. TB_WatchLog.Text = File.ReadAllText(ActionFile)
    57. End If
    58. End Sub
    60. Private Sub CheckButtons()
    61. If TheFolders.Count > 0 Then
    62. BT_Start.IsEnabled = True
    63. BT_DelFolder.IsEnabled = True
    64. Else
    65. BT_Start.IsEnabled = False
    66. BT_DelFolder.IsEnabled = False
    67. End If
    68. If TB_WatchLog.Text = "" Then
    69. BT_CLRLog.IsEnabled = False
    70. Else
    71. BT_CLRLog.IsEnabled = True
    72. End If
    73. End Sub
    75. Private Sub UpdFolderChg(ChgFile As String, ChgType As String)
    76. Dim FolderPath As String = ChgFile.Substring(0, ChgFile.LastIndexOf("\"))
    77. If Not FolderPath = "" Then
    78. Dim Idx As Integer = TheFolders.FindIndex(Function(x) x.FolderPath.Equals(FolderPath))
    79. If Not Idx = -1 Then
    80. TheFolders(Idx).FolderChDate = Now
    81. TheFolders(Idx).FolderLastStatus = ChgType
    82. End If
    83. Dim NewEntry As String = Now & " " & ChgType & " : " & ChgFile & vbLf
    84. File.AppendAllText(ActionFile, NewEntry)
    85. 'FillBoxSub(NewEntry & vbLf)
    86. Dim d As New UpdTB(AddressOf FillBoxSub)
    87. d.Invoke(NewEntry & vbLf)
    88. End If
    89. End Sub
    91. Private Sub FillBoxSub(NewText As String)
    92. Dim MsgText As String = NewText & TB_WatchLog.Text
    93. TB_WatchLog.Text = MsgText
    94. End Sub
    96. Private Sub AddWatch(FolderItem As FolderItems)
    97. Try
    98. If Directory.Exists(FolderItem.FolderPath) Then
    99. Dim FWatch As New FileSystemWatcher With {
    100. .Path = FolderItem.FolderPath,
    101. .Filter = "",
    102. .EnableRaisingEvents = True,
    103. .IncludeSubdirectories = False,
    104. .NotifyFilter = NotifyFilters.Attributes Or
    105. NotifyFilters.CreationTime Or
    106. NotifyFilters.DirectoryName Or
    107. NotifyFilters.FileName Or
    108. NotifyFilters.LastAccess Or
    109. NotifyFilters.LastWrite Or
    110. NotifyFilters.Security Or
    111. NotifyFilters.Size
    112. }
    113. AddHandler FWatch.Created, AddressOf FSWNotify
    114. AddHandler FWatch.Deleted, AddressOf FSWNotify
    115. AddHandler FWatch.Changed, AddressOf FSWNotify
    116. AddHandler FWatch.Error, AddressOf FSWOnError
    117. End If
    118. FolderItem.FolderStatus = "watching"
    119. Catch ex As Exception
    120. ShowError(ex)
    121. End Try
    122. End Sub
    124. Private Sub FSWNotify(sender As Object, e As FileSystemEventArgs)
    125. UpdFolderChg(e.FullPath, e.ChangeType.ToString)
    126. End Sub
    128. Private Sub FSWOnError(sender As Object, e As ErrorEventArgs)
    129. Dim ex As Exception = e.GetException()
    130. ShowError(ex)
    131. CheckButtons()
    132. End Sub
    134. Private Sub ShowError(ex As Exception)
    135. Dim Dlg As New TaskDialog With {
    136. .Content = ex.Message & vbLf & ex.StackTrace,
    137. .WindowTitle = "Exception occured"}
    138. Dlg.ShowDialog()
    139. End Sub
    141. #End Region
    143. #Region "Main"
    145. Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
    146. Init()
    148. End Sub
    150. #End Region
    152. #Region "Buttons"
    154. Private Sub BT_AddFolder_Click(sender As Object, e As RoutedEventArgs) Handles BT_AddFolder.Click
    155. Dim OFD As New VistaFolderBrowserDialog
    156. OFD.Description = "Verzeichnis auswählen"
    157. If OFD.ShowDialog Then
    158. Dim TItem As New FolderItems With {.FolderPath = OFD.SelectedPath, .FolderChDate = Now, .FolderStatus = "stopped", .FolderLastStatus = "nope"}
    159. TheFolders.Add(TItem)
    160. DG_FolderList.Items.Refresh()
    161. End If
    162. BT_Start.IsEnabled = False
    163. BT_Stop.IsEnabled = True
    164. SaveList()
    165. CheckButtons()
    166. End Sub
    168. Private Sub BT_DelFolder_Click(sender As Object, e As RoutedEventArgs) Handles BT_DelFolder.Click
    169. If Not DG_FolderList.SelectedIndex = -1 Then
    170. TheFolders.RemoveAt(DG_FolderList.SelectedIndex)
    171. DG_FolderList.Items.Refresh()
    172. End If
    173. SaveList()
    174. CheckButtons()
    175. End Sub
    177. Private Sub BT_CLRLog_Click(sender As Object, e As RoutedEventArgs) Handles BT_CLRLog.Click
    178. TB_WatchLog.Text = ""
    179. CheckButtons()
    180. End Sub
    182. Private Sub BT_Start_Click(sender As Object, e As RoutedEventArgs) Handles BT_Start.Click
    183. For Each MemItem As FolderItems In TheFolders
    184. AddWatch(MemItem)
    185. Next
    186. DG_FolderList.Items.Refresh()
    187. End Sub
    189. Private Sub BT_Stop_Click(sender As Object, e As RoutedEventArgs) Handles BT_Stop.Click
    190. BT_Start.IsEnabled = True
    191. BT_Stop.IsEnabled = False
    192. End Sub
    194. #End Region
    196. End Class
    198. Public Class FolderItems
    199. Public Property FolderPath As String
    200. Public Property FolderChDate As String
    201. Public Property FolderStatus As String
    202. Public Property FolderLastStatus As String
    203. End Class

    Hinweis am Rand: Bei WinForms war es noch ungültiger threadübergreifender Prozess. Bei WPF ist es eben dieser Fehler. Da der FSW in einem anderen Thread arbeitet als das GUI, gibt es den Fehler, wenn im Nebenthread probiert wird, das GUI zu ändern. Du musst z.B. mit Me.Dispatcher.Invoke bzw. .BeginInvoke arbeiten.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo,

    jetzt konnte ich das Thema lösen. Die offizielle Doku dazu fand ich verwirren. Für alle die es Interessiert - hier die Lösung:

    VB.NET-Quellcode

    1. Private Sub UpdFolderChg(ChgFile As String, ChgType As String)
    2. Dim FolderPath As String = ChgFile.Substring(0, ChgFile.LastIndexOf("\"))
    3. If Not FolderPath = "" Then
    4. Dim Idx As Integer = TheFolders.FindIndex(Function(x) x.FolderPath.Equals(FolderPath))
    5. If Not Idx = -1 Then
    6. TheFolders(Idx).FolderChDate = Now
    7. TheFolders(Idx).FolderLastStatus = ChgType
    8. End If
    9. Dim NewEntry As String = Now & " " & ChgType & " : " & ChgFile & vbLf
    10. Me.Dispatcher.Invoke(DispatcherPriority.Normal, New Action(Sub()
    11. Me.TB_WatchLog.Text = NewEntry & TB_WatchLog.Text
    12. End Sub))
    13. End If
    14. End Sub

    Hier dar ganze Code (Für den Zusammenhang):
    Komplettcode

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports Ookii.Dialogs.Wpf
    3. Imports System.Windows.Threading
    5. Class MainWindow
    7. #Region "Definitions"
    9. Dim SaveFile As String = FileIO.FileSystem.CurrentDirectory & "\settings.cnf"
    10. Dim TheFolders As New List(Of FolderItems)
    11. Dim ActionFile As String = FileIO.FileSystem.CurrentDirectory & "\actionlog.acl"
    13. Public Delegate Sub UpdTB(NewText As String)
    15. #End Region
    17. #Region "Subs and Funcs"
    19. Private Sub Init()
    20. 'Load SaveFile
    21. LoadList()
    22. 'Fill Grid
    23. DG_FolderList.ItemsSource = TheFolders
    24. CheckButtons()
    25. End Sub
    27. Private Sub SaveList()
    28. If File.Exists(SaveFile) Then File.Delete(SaveFile)
    29. For Each LineElement In TheFolders
    30. Dim LineOut As String = LineElement.FolderPath & ";" & LineElement.FolderChDate & ";" & LineElement.FolderLastStatus & vbLf
    31. File.AppendAllText(SaveFile, LineOut)
    32. Next
    33. End Sub
    35. Private Sub LoadList()
    36. Dim Tlist As New List(Of String)
    37. TheFolders.Clear()
    38. If File.Exists(SaveFile) Then
    39. Tlist.AddRange(File.ReadAllLines(SaveFile).ToArray)
    40. For Each LineElement In Tlist
    41. Dim LineParts() As String = LineElement.Split(";")
    42. Dim TFObject As New FolderItems With {
    43. .FolderPath = LineParts(0)}
    44. If LineParts.Length > 1 Then TFObject.FolderChDate = LineParts(1)
    45. If LineParts.Length > 2 Then TFObject.FolderLastStatus = LineParts(2)
    46. TFObject.FolderStatus = "stopped"
    47. TheFolders.Add(TFObject)
    48. Next
    49. DG_FolderList.Items.Refresh()
    50. End If
    51. CheckButtons()
    52. End Sub
    54. Private Sub LoadActionLog()
    55. If File.Exists(ActionFile) Then
    56. TB_WatchLog.Text = File.ReadAllText(ActionFile)
    57. End If
    58. End Sub
    60. Private Sub CheckButtons()
    61. If TheFolders.Count > 0 Then
    62. BT_Start.IsEnabled = True
    63. BT_DelFolder.IsEnabled = True
    64. Else
    65. BT_Start.IsEnabled = False
    66. BT_DelFolder.IsEnabled = False
    67. End If
    68. If TB_WatchLog.Text = "" Then
    69. BT_CLRLog.IsEnabled = False
    70. Else
    71. BT_CLRLog.IsEnabled = True
    72. End If
    73. End Sub
    75. Private Sub UpdFolderChg(ChgFile As String, ChgType As String)
    76. Dim FolderPath As String = ChgFile.Substring(0, ChgFile.LastIndexOf("\"))
    77. If Not FolderPath = "" Then
    78. Dim Idx As Integer = TheFolders.FindIndex(Function(x) x.FolderPath.Equals(FolderPath))
    79. If Not Idx = -1 Then
    80. TheFolders(Idx).FolderChDate = Now
    81. TheFolders(Idx).FolderLastStatus = ChgType
    82. End If
    83. Dim NewEntry As String = Now & " " & ChgType & " : " & ChgFile & vbLf
    84. Me.Dispatcher.Invoke(DispatcherPriority.Normal, New Action(Sub()
    85. Me.TB_WatchLog.Text = NewEntry & TB_WatchLog.Text
    86. End Sub))
    87. End If
    88. End Sub
    90. Private Sub FillBoxSub(NewText As String)
    92. End Sub
    94. Private Sub AddWatch(FolderItem As FolderItems)
    95. Try
    96. If Directory.Exists(FolderItem.FolderPath) Then
    97. Dim FWatch As New FileSystemWatcher With {
    98. .Path = FolderItem.FolderPath,
    99. .Filter = "",
    100. .EnableRaisingEvents = True,
    101. .IncludeSubdirectories = False,
    102. .NotifyFilter = NotifyFilters.Attributes Or
    103. NotifyFilters.CreationTime Or
    104. NotifyFilters.DirectoryName Or
    105. NotifyFilters.FileName Or
    106. NotifyFilters.LastAccess Or
    107. NotifyFilters.LastWrite Or
    108. NotifyFilters.Security Or
    109. NotifyFilters.Size
    110. }
    111. AddHandler FWatch.Created, AddressOf FSWNotify
    112. AddHandler FWatch.Deleted, AddressOf FSWNotify
    113. AddHandler FWatch.Changed, AddressOf FSWNotify
    114. AddHandler FWatch.Error, AddressOf FSWOnError
    115. End If
    116. FolderItem.FolderStatus = "watching"
    117. Catch ex As Exception
    118. ShowError(ex)
    119. End Try
    120. End Sub
    122. Private Sub FSWNotify(sender As Object, e As FileSystemEventArgs)
    123. UpdFolderChg(e.FullPath, e.ChangeType.ToString)
    124. End Sub
    126. Private Sub FSWOnError(sender As Object, e As ErrorEventArgs)
    127. Dim ex As Exception = e.GetException()
    128. ShowError(ex)
    129. CheckButtons()
    130. End Sub
    132. Private Sub ShowError(ex As Exception)
    133. Dim WDERR As New WD_Msg With {.MSGTitle = ex.Message, .MSGText = ex.StackTrace}
    134. WDERR.ShowDialog()
    135. End Sub
    137. #End Region
    139. #Region "Main"
    141. Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
    142. Init()
    144. End Sub
    146. #End Region
    148. #Region "Buttons"
    150. Private Sub BT_AddFolder_Click(sender As Object, e As RoutedEventArgs) Handles BT_AddFolder.Click
    151. Dim OFD As New VistaFolderBrowserDialog
    152. OFD.Description = "Verzeichnis auswählen"
    153. If OFD.ShowDialog Then
    154. Dim TItem As New FolderItems With {.FolderPath = OFD.SelectedPath, .FolderChDate = Now, .FolderStatus = "stopped", .FolderLastStatus = "nope"}
    155. TheFolders.Add(TItem)
    156. DG_FolderList.Items.Refresh()
    157. End If
    158. BT_Start.IsEnabled = False
    159. BT_Stop.IsEnabled = True
    160. SaveList()
    161. CheckButtons()
    162. End Sub
    164. Private Sub BT_DelFolder_Click(sender As Object, e As RoutedEventArgs) Handles BT_DelFolder.Click
    165. If Not DG_FolderList.SelectedIndex = -1 Then
    166. TheFolders.RemoveAt(DG_FolderList.SelectedIndex)
    167. DG_FolderList.Items.Refresh()
    168. End If
    169. SaveList()
    170. CheckButtons()
    171. End Sub
    173. Private Sub BT_CLRLog_Click(sender As Object, e As RoutedEventArgs) Handles BT_CLRLog.Click
    174. TB_WatchLog.Text = ""
    175. CheckButtons()
    176. End Sub
    178. Private Sub BT_Start_Click(sender As Object, e As RoutedEventArgs) Handles BT_Start.Click
    179. For Each MemItem As FolderItems In TheFolders
    180. AddWatch(MemItem)
    181. Next
    182. DG_FolderList.Items.Refresh()
    183. CheckButtons()
    184. End Sub
    186. Private Sub BT_Stop_Click(sender As Object, e As RoutedEventArgs) Handles BT_Stop.Click
    187. BT_Start.IsEnabled = True
    188. BT_Stop.IsEnabled = False
    189. End Sub
    191. #End Region
    193. End Class
    195. Public Class FolderItems
    196. Public Property FolderPath As String
    197. Public Property FolderChDate As String
    198. Public Property FolderStatus As String
    199. Public Property FolderLastStatus As String
    200. End Class



    aufgrund des Codeumfangs Spoiler hinzugefügt ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

Facebook
Telefonspende