منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرحبا

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

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

ولاكن التبليغ لم يعمل

كود :

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

في الانتضار

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dasktop

911

dasktop