10-09-18, 09:55 PM
مرحبا
المطلوب تعديل بسيط على هاذا المشروع
هو عبارة عن مراقبة الملفات في مسار معين يعني اي شي يحصل في هاذا الملف من حذف وانشاء وتعديل تضهر رسالة تبليغ عن ذالك
البرنامج ناجخ ولاكن المطلوب تعديل على طريقة التبليغ او الاعلام
صورة لتبليغ حالياً
وهنا صورة لتبليغ المطلوب
الكود اللذي تم استخدامة المطلوب التعديل عليه حتى يكون التبليغ مثل الصوره رقم 2
المطلوب تعديل بسيط على هاذا المشروع
هو عبارة عن مراقبة الملفات في مسار معين يعني اي شي يحصل في هاذا الملف من حذف وانشاء وتعديل تضهر رسالة تبليغ عن ذالك
البرنامج ناجخ ولاكن المطلوب تعديل على طريقة التبليغ او الاعلام
صورة لتبليغ حالياً
وهنا صورة لتبليغ المطلوب
الكود اللذي تم استخدامة المطلوب التعديل عليه حتى يكون التبليغ مثل الصوره رقم 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