منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

عندي أجهزه مرتبطه في سيرفر طبعاً يتم نقل المجلدات من الجهاز وتترحل إلى السيرفر داخل مجلد تم أنشـاء له مشـاركه من قبل

هذا الكود يعمل وينقل المجلدات ولكنه لا يصمد أمام المجلدات ذات الحجم الكبيـر أقصد ( من 8 إلى 50)

عندا أرسال ملف بحجم كبير يتم تعليق البرنامج ويعطيني رسـاله في أعلى الفورم (البرنامج لا يستجيب )

أتمنى من أهل الخبـره مسـاعدتي في تعديـل الكود :

كود :

Dim aa As String = DateAndTime.Now.Day

        'دالة تخزن الشهر الحالي بها

        Dim ab As String = DateAndTime.Now.Month

        'دالة تخزن السنه الحاليه بها

        Dim ac As String = DateAndTime.Now.Year

        '******************************************]

        If t1.Text > "" Then

            Dim filyname As String = My.Computer.FileSystem.GetDirectoryInfo(t1.Text).Name

            Try

                ' My.Computer.FileSystem.MoveDirectory(t1.Text, "\\169.254.202.161\All_Data\" + ComboBox1.Text & "\" + aa + "-" + ab + "-" + ac & "\" + filyname)

                My.Computer.FileSystem.MoveDirectory(t1.Text, "C:\Users\DOL\Desktop\lllll\" + ComboBox1.Text & "\" + aa + "-" + ab + "-" + ac & "\" + filyname)

                MsgBox("تم النقل بنجاح", MsgBoxStyle.Information, "رساله إداريه")

تحياتي

يـــا شباب فكرتي بسيطه المجلد حجمه كبير الاحجام اللي أتعامل مع نقلها بالغيغا بايت

اعتقد انه يجب عليك استخدام الثريدينج

(17-10-17, 05:13 PM)thevirus كتب : [ -> ]اعتقد انه يجب عليك استخدام الثريدينج

قم بتجربه هذه الطريقه اخي

كود :

      Dim aa As String = DateAndTime.Now.Day

       'دالة تخزن الشهر الحالي بها

       Dim ab As String = DateAndTime.Now.Month

       'دالة تخزن السنه الحاليه بها

       Dim ac As String = DateAndTime.Now.Year

 Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        If t1.Text > "" Then

           Dim filyname As String = My.Computer.FileSystem.GetDirectoryInfo(t1.Text).Name

           My.Computer.FileSystem.MoveDirectory(t1.Text, "\\169.254.202.161\All_Data\" + ComboBox1.Text & "\" + aa + "-" + ab + "-" + ac & "\" + filyname)

           My.Computer.FileSystem.MoveDirectory(t1.Text, "C:\Users\DOL\Desktop\lllll\" + ComboBox1.Text & "\" + aa + "-" + ab + "-" + ac & "\" + filyname)

        end if

 End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted

           MsgBox("تم النقل بنجاح", MsgBoxStyle.Information, "رساله إداريه")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        BackgroundWorker1.RunWorkerAsync()

    End Sub

يمكنك ايضا اضافه صوره متحركه او كتابه لاظهار انه ينم عمليه النقل.

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

adel27

adel27

thevirus

Rabeea Qbaha