[Aly El-Haddad]

(05-01-14, 04:27 PM)ali.alfoly كتب : -

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

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

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

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

-

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 


(05-01-14, 06:56 PM)ali.alfoly كتب : الحدث ينطلق مرتين
الاولـي : عند لصق الملف داخل المجلد
والثانية : عند الانتهاء من نسخ الملف بالكامل الي المجلد
كيف يمكنني التفرقة بين الحدثين

---

وعند استخدام
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