' تحديد مسار المجلد الذي تريد مراقبته
FileSystemWatcher1.Path = "مسار المجلد"
' تفعيل أو تعطيل عمل الأداة وهي تماثل تماماً عمل التايمر
FileSystemWatcher1.EnableRaisingEvents = True
' مراقبة كل الملفات .. يمكنك تحديد ملفات بعينها
FileSystemWatcher1.Filter = "*.*"
' مراقبة المجلدات الفرعية داخل المجلد الرئيس
FileSystemWatcher1.IncludeSubdirectories = True
' تحديد متى ينطلق الحدث
' هنا حددنا له إذا تغير اسم المجلد أو الملف ... أو إذا تم كتابة أي شيء داخل المجلد أو الملف
' وهنا أحداث أخرى اكتشفها بنفسك :
FileSystemWatcher1.NotifyFilter = NotifyFilters.FileName Or NotifyFilters.LastWrite
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
(05-01-14, 04:27 PM)ali.alfoly كتب : [ -> ]-
ما شاء الله لا قوة الا بالله
جزاك الله خيرا وجعله في موازين حسناتك
اداة رائعة جدا جدا ما كنت اعرف عنها شئ
انا قرءات عنها الان وجربتها
هناك شئ اخر يحتاج حرفة وذكاء
انا اقوم بعمل بعض الاجراءت علي اي ملف يتم وضعه داخل المجلد المحدد
فيه مشكلة
الحدث بينطلق بمجرد عمل لصق للملف في المجلد مما يؤدي الي تنفيذ الاكواد قبل اتمام الصق لان حجم الملفات كبير
اتمني تكون وضحت المشكلة
-
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
(05-01-14, 06:56 PM)ali.alfoly كتب : [ -> ]الحدث ينطلق مرتين
الاولـي : عند لصق الملف داخل المجلد
والثانية : عند الانتهاء من نسخ الملف بالكامل الي المجلد
كيف يمكنني التفرقة بين الحدثين
وعند استخدام
e.ChangeType.ToString()
تقريبا مفيش فرق
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