[silverlight]

حاول تستخدم Parallel.For
يحيث تعمل loop علي كل الملفات في وقت واحد و تنفذ امر الداتا بيز علي كل ملف بشكل متوازي

الكود التالي مجرد مثال بسيط لكيفية استخدام جملة Parallel.For لقراءة حجم جميع الملفات تحت فهرس المشروع

PHP كود :

       Dim files() As String = Directory.GetFiles(".\")
        Dim totalSize As Long = 0
        Dim callBack As Action(Of Integer) = Sub(index As Integer)
                                                 Dim fi As New FileInfo(files(index))
                                                 Dim size As Long = fi.Length
                                                 Interlocked.Add(totalSize, size)
                                             End Sub
        Parallel.For(0, files.Length, callBack)