Watch Folder in VB.net/WPF

Question

У меня возникли проблемы с попыткой выяснить, как смотреть папку для изменений. Это, как далеко я получил:

Class MainWindow 

<PermissionSet(SecurityAction.Demand, Name:="FullTrust")> _ 
Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded 
    Dim Path As String = "C:\Temp" 

    ' Create a new FileSystemWatcher and set its properties. 
    Dim watcher As New FileSystemWatcher() 
    watcher.Path = Path 
    ' Watch for changes in LastAccess and LastWrite times, and 
    ' the renaming of files or directories. 
    watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName) 
    ' Only watch text files. 
    watcher.Filter = "*.txt" 

    ' Add event handlers. 
    AddHandler watcher.Changed, AddressOf OnChanged 
    AddHandler watcher.Created, AddressOf OnChanged 
    AddHandler watcher.Deleted, AddressOf OnChanged 
    AddHandler watcher.Renamed, AddressOf OnRenamed 

    ' Begin watching. 
    watcher.EnableRaisingEvents = True 

End Sub 

' Define the event handlers. 
Private Shared Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs) 
    ' Specify what is done when a file is changed, created, or deleted. 
    MsgBox("File: " & e.FullPath & " " & e.ChangeType) 
End Sub 

Private Shared Sub OnRenamed(ByVal source As Object, ByVal e As RenamedEventArgs) 
    ' Specify what is done when a file is renamed. 
    MsgBox("File: {0} renamed to {1}", e.OldFullPath, e.FullPath) 
End Sub 
End Class 

Проблема заключается в том, когда происходит изменение в папке программа выходит с без кода ошибки. Я прочитал несколько связанных должностей, и я знаю, что это связано с безопасностью потоков. Однако я не знаю, как сделать эту программу «потоковой безопасностью». Может ли кто-нибудь дать мне совет? Благодаря!

Answer 1

У меня здесь нет проблем с безопасностью. Я думаю, что проблема:

MsgBox("File: {0} renamed to {1}", e.OldFullPath, e.FullPath) 

должен быть

MsgBox(String.Format("File: {0} renamed to {1}", e.OldFullPath, e.FullPath))