[dasktop]

مرحبا 

المطلوب تعديل بسيط على هاذا المشروع 

هو عبارة عن مراقبة الملفات في مسار معين يعني اي شي يحصل في هاذا الملف من حذف وانشاء وتعديل تضهر رسالة تبليغ عن ذالك 

البرنامج ناجخ ولاكن المطلوب تعديل على طريقة التبليغ او الاعلام 

صورة لتبليغ حالياً 





وهنا صورة لتبليغ المطلوب 




الكود اللذي تم استخدامة المطلوب التعديل عليه حتى يكون التبليغ مثل الصوره رقم 2

كود :

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Try
           If FolderBrowserDialog1.ShowDialog() = vbOK Then
               TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString
               FileSystemWatcher1.Path = FolderBrowserDialog1.SelectedPath
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

   Private Sub FileSystemWatcher1_Deleted(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles FileSystemWatcher1.Deleted
       ListBox1.Items.Add("Deleted : " & e.FullPath)
   End Sub

   Private Sub FileSystemWatcher1_Renamed(ByVal sender As Object, ByVal e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed
       ListBox1.Items.Add("Renamed Old Path : " & e.OldFullPath)
       ListBox1.Items.Add("Renamed New Path : " & e.FullPath)
   End Sub

   Private Sub FileSystemWatcher1_Created(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
       ListBox1.Items.Add("Created : " & e.FullPath)
   End Sub

End Class