[طالب برمجة]

استخدم FileSystemWatcher لمراقبة الملفات

هذا الكود يراقب ملفات من نوع txt على المحرك :C بجميع مجلداته الفرعية
فإذا وجد أن الملف يحتوي الجملة "open my file" يظهر رسالة بمسار الملف

PHP كود :

Private WithEvents watcher As New IO.FileSystemWatcher With {
    .Path = "C:\", .Filter = "*.txt",
    .IncludeSubdirectories = True, .EnableRaisingEvents = True}
Private Sub watcher_Changed(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles watcher.Changed
    On Error Resume Next
    If IO.File.ReadAllText(e.FullPath).ToLower.Contains("open my file".ToLower) Then
        Me.Invoke(Sub() MsgBox(e.FullPath))
    End If
End Sub