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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التعديل على مشروع فيجول ستديو EMADMW17 8 113 منذ 2 ساعة مضت
آخر رد: elgokr
  ظهور رساله ازعجتنى فى مشروع مصمم بال vb.net خالد كامل1 6 156 20-02-19, 03:44 PM
آخر رد: elgokr
  ارجو المساعدة مشروع عن الوزن المثالي Rodi001 7 7,040 13-02-19, 01:08 AM
آخر رد: مها القويفلي
  [VB.NET] مشكلة بعد تحويل مشروع الفيجوال بيسك لصيغة exe _M.Nasser 1 109 25-01-19, 07:44 PM
آخر رد: سعود
  [سؤال] طلب شروحات او دروس تعليمية لتصميم مشروع بسيط جدا للمبتدئين hyboss 1 95 21-01-19, 03:31 PM
آخر رد: elgokr
  ارجو المساعدة كيف يتم الحفظ والحذف لاكثر من جدول باستخدام DATA SET يوجد مشروع للتعديل abdullhadi999 6 266 16-01-19, 12:59 AM
آخر رد: EYADISMAIL
  مشكله عند عمل مشروع جديد في الفيجوال بيسك 2015 Emam emam 7 265 22-12-18, 03:45 PM
آخر رد: Emam emam
  [VB.NET] مشروع محيرنى مش عارف ابدأ منين؟ خالد كامل1 14 462 22-12-18, 05:53 AM
آخر رد: خالد كامل1
  استشارة فى مشروع برنامج شجرة العائلة salah mansour 5 213 20-12-18, 03:45 AM
آخر رد: elgokr
  [VB.NET] من يملك مشروع تدبير مؤسسة تعليمية ابتدائي و اعدادي و ثانوي yassbazz1987 1 138 19-12-18, 01:12 AM
آخر رد: elgokr

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


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