ربط حدث بمجلد - نسخة قابلة للطباعة

PHP كود :

' تحديد مسار المجلد الذي تريد مراقبته
        FileSystemWatcher1.Path = "مسار المجلد"


        ' تفعيل أو تعطيل عمل الأداة وهي تماثل تماماً عمل التايمر
        FileSystemWatcher1.EnableRaisingEvents = True


        ' مراقبة كل الملفات .. يمكنك تحديد ملفات بعينها
        FileSystemWatcher1.Filter = "*.*"


        ' مراقبة المجلدات الفرعية داخل المجلد الرئيس
        FileSystemWatcher1.IncludeSubdirectories = True


        ' تحديد متى ينطلق الحدث
        ' هنا حددنا له إذا تغير اسم المجلد أو الملف ... أو إذا تم كتابة أي شيء داخل المجلد أو الملف
        ' وهنا أحداث أخرى اكتشفها بنفسك :
        FileSystemWatcher1.NotifyFilter = NotifyFilters.FileName Or NotifyFilters.LastWrite 

PHP كود :

Private Sub FileSystemWatcher1_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed
        If e.ChangeType = WatcherChangeTypes.Changed Then
            ' ضع هنا دالة تحديث الليست بوكس
        End If
    End Sub

    Private Sub FileSystemWatcher1_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
        If e.ChangeType = WatcherChangeTypes.Created Then
            ' ضع هنا دالة تحديث الليست بوكس
        End If
    End Sub 

PHP كود :

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileSystemWatcher1.Path = "مسار المجلد"
        FileSystemWatcher1.EnableRaisingEvents = True
        FileSystemWatcher1.Filter = "*.*"
        FileSystemWatcher1.IncludeSubdirectories = True
        FileSystemWatcher1.NotifyFilter = NotifyFilters.FileName Or NotifyFilters.LastWrite
    End Sub

    Private Sub FileSystemWatcher1_EventHandler(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created, FileSystemWatcher1.Changed, FileSystemWatcher1.Renamed, FileSystemWatcher1.Deleted
        If (e.ChangeType = WatcherChangeTypes.Created) OrElse (e.ChangeType = WatcherChangeTypes.Changed) OrElse (e.ChangeType = WatcherChangeTypes.Renamed) OrElse (e.ChangeType = WatcherChangeTypes.Deleted) Then
            If Timer1.Enabled Then
                Timer1.Enabled = False
            End If
            Timer1.Enabled = True
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Enabled = False
        MessageBox.Show("A file has been created, changed, renamed or deleted!")
    End Sub
End Class 

PHP كود :

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileSystemWatcher1.Path = "مسار المجلد"
        FileSystemWatcher1.EnableRaisingEvents = True
        FileSystemWatcher1.Filter = "*.*"
        FileSystemWatcher1.IncludeSubdirectories = True
        FileSystemWatcher1.NotifyFilter = NotifyFilters.FileName Or NotifyFilters.LastWrite
    End Sub

    Private Sub FileSystemWatcher1_EventHandler(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created, FileSystemWatcher1.Changed, FileSystemWatcher1.Renamed, FileSystemWatcher1.Deleted
        MsgBox(e.ChangeType.ToString())
    End Sub
End Class 