[ali.alfoly]

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

[kslawy]

السلام عليكم ورحمة الله وبركاته

يمكنك مراقبة الزيادة أو النقصان في المجلد الهدف باستخدام الأداة FileSystemWatcher

تضع في أحداثها الدالة التي تستخدمها لملء الليست بوكس بمحتويات ذلك المجلد

كلما حدثت زيادة أو نقصان تم التحديث

---

بعد إضافة الأداة للنموذج يمكنك تغيير خصائصها كالتالي :

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 


****
***
**
*

[ali.alfoly]

-

ما شاء الله لا قوة الا بالله
جزاك الله خيرا وجعله في موازين حسناتك

اداة رائعة جدا جدا ما كنت اعرف عنها شئ
انا قرءات عنها الان وجربتها

هناك شئ اخر يحتاج حرفة وذكاء

انا اقوم بعمل بعض الاجراءت علي اي ملف يتم وضعه داخل المجلد المحدد
فيه مشكلة
الحدث بينطلق بمجرد عمل لصق للملف في المجلد مما يؤدي الي تنفيذ الاكواد قبل اتمام الصق لان حجم الملفات كبير
اتمني تكون وضحت المشكلة

-

[ali.alfoly]

الحدث ينطلق مرتين
الاولـي : عند لصق الملف داخل المجلد
والثانية : عند الانتهاء من نسخ الملف بالكامل الي المجلد
كيف يمكنني التفرقة بين الحدثين

---

وعند استخدام
e.ChangeType.ToString()
تقريبا مفيش فرق

---

[Aly El-Haddad]

-

ما شاء الله لا قوة الا بالله
جزاك الله خيرا وجعله في موازين حسناتك

اداة رائعة جدا جدا ما كنت اعرف عنها شئ
انا قرءات عنها الان وجربتها

هناك شئ اخر يحتاج حرفة وذكاء

انا اقوم بعمل بعض الاجراءت علي اي ملف يتم وضعه داخل المجلد المحدد
فيه مشكلة
الحدث بينطلق بمجرد عمل لصق للملف في المجلد مما يؤدي الي تنفيذ الاكواد قبل اتمام الصق لان حجم الملفات كبير
اتمني تكون وضحت المشكلة

-

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 


الحدث ينطلق مرتين
الاولـي : عند لصق الملف داخل المجلد
والثانية : عند الانتهاء من نسخ الملف بالكامل الي المجلد
كيف يمكنني التفرقة بين الحدثين

---

وعند استخدام
e.ChangeType.ToString()
تقريبا مفيش فرق

---

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 


[ali.alfoly]

جزاك الله خيرا اخي Aly El-Haddad
لاكن واضح ان حدرتك مفهمتش انا اقصد ايه
انا قرءات في المنتدي القديم عن هذه الاداة واجيد التعامل معها جيدا واعرف جميع الاحداث والخصائص

اقتباس كلام الاخ الي شرح الاداة

- عندما يتم إنشاء ملف كبير ضمن المجلد فقد لا تستطيع قراءة كامل الملف مباشرة لأنه يكون ما يزال مملوكا من قبل العملية Process التي قامت بكتابة البيانات إلى ذلك الملف ويجب عليك حماية الكتابة إلى الملف الأصلي باستخدام حلقة Try فإن تم إطلاق خطأ يمكنك محاولة العملية بعد بضع ميلي ثانية أخرى

لا ادري كيف انفذ هذا الاكلام الجزء الغير مفهوم

حماية الكتابة إلى الملف الأصلي

انا بقالي من اول امس اعاني معها لحد ما حفظت الاداة زي اسمي وموصلتش لحل

وجزاكم الله خيرا

[ali.alfoly]

السلام عليكم
الحمد لله وصلت للحل

[محمود رغمان]

ايه هو

[ali.alfoly]

اخي محمود اضغط علي الرابط