تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشروع مراقبة الملفات
#1
مرحبا

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

مثلا فتحتب برنامج والبرنامج ارسل ملفات الى مسار 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



ولاكن التبليغ لم يعمل
الرد
تم الشكر بواسطة:
#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
الرد
تم الشكر بواسطة: elgokr
#3
في الانتضار
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الملفات الناتجة اكثر من المستخدمة في مكونات ديفاكسبريس ابو محمد محمد محمد 3 289 30-09-20, 12:29 AM
آخر رد: محمد كريّم
  مشكلة بعد استخراج مشروع رسالة خطء chankar 14 548 24-09-20, 03:26 AM
آخر رد: chankar
  [VB.NET] مشروع مرفق يبين كيفية التعامل مع Datagridview lkaam 4 2,653 23-09-20, 12:28 PM
آخر رد: sulim
Exclamation [VB.NET] مشكلة بعد استخراج مشروع إدارة المكتبة abarrak 0 120 20-09-20, 11:43 AM
آخر رد: abarrak
  [VB.NET] ارجو المساعدة في برنامج لتشغيل الملفات الصوتية لنطق الارقام eman kh 5 522 13-09-20, 06:05 PM
آخر رد: eman kh
  [سؤال] تنظيم ارفاق المستندات في قاعدة البيانات Sql واحضار الملفات حسب قيمة البحث محمد العامر 10 608 07-09-20, 12:28 AM
آخر رد: محمد العامر
  هل يجب اضافة ملف الريبورت فيور مع مشروع الفيجوال ستوديو adnan gharbi 2 238 02-09-20, 09:27 PM
آخر رد: adnan gharbi
  استعراض الملفات الموجودة في سلة المحذوفات EbrNaj00 2 266 02-09-20, 02:24 AM
آخر رد: EbrNaj00
  ممكن مساعده من اخواتي ومعلميني الكرام بخصوص الملفات اليوم السابع 4 376 17-08-20, 01:24 PM
آخر رد: اليوم السابع
Lightbulb [اقتراح] مشروع abdallah1522011 1 233 14-08-20, 01:24 PM
آخر رد: عبد الهادي بهاب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم