10-09-18, 01:53 AM
مرحبا
انا عملت مشروع مراقبة جميع الملفات يعني اي شي يحدث في ملفات الجهاز تضهر رسالة تبليغ عن ذالك
مثلا فتحتب برنامج والبرنامج ارسل ملفات الى مسار temp تضهر رسالة تبليغ او تم حذف اي شي على الجهاز تضهر رسالة التبليغ عن ذالك
هاذي صوره للمشروع
وهاذي صوره لتبليغ عن المعليات الجديدة في الجهاز
واستخدمت الكود التالي
ولاكن التبليغ لم يعمل
انا عملت مشروع مراقبة جميع الملفات يعني اي شي يحدث في ملفات الجهاز تضهر رسالة تبليغ عن ذالك
مثلا فتحتب برنامج والبرنامج ارسل ملفات الى مسار temp تضهر رسالة تبليغ او تم حذف اي شي على الجهاز تضهر رسالة التبليغ عن ذالك
هاذي صوره للمشروع
وهاذي صوره لتبليغ عن المعليات الجديدة في الجهاز

واستخدمت الكود التالي
كود :
FolderBrowserDialog1.ShowDialog()
If vbOK Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString
FileSystemWatcher1.Path = TextBox1.Text
End If
Private Sub FileSystemWatcher1_Deleted(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Deleted
ListBox1.Items.Add("Deleted : " & e.FullPath)
Private Sub FileSystemWatcher1_Renamed(ByVal sender As Object, ByVal e As System.IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed
ListBox1.Items.Add("Renamed Old Path : " & e.OldFullPath)
ListBox1.Items.Add("Renamed New Path : " & e.FullPath)
End Sub
rivate Sub FileSystemWatcher1_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
ListBox1.Items.Add("Created : " & e.FullPath)
End Sub
ولاكن التبليغ لم يعمل