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

السلام عليكم

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

كود :

My.Computer.Audio.Play("click.wav")

        Dim a, b As String

        a = (TextBox1.Text)

        b = (TextBox2.Text)

        My.Computer.FileSystem.CopyDirectory(a, b, True)

        With ProgressBar1

            .Minimum = 1

            .Maximum = 100000

            .Value = 1

            .Step = 1

            For i As Integer = .Minimum To .Maximum

                .PerformStep()

            Next i

        End With

        MsgBox("done")

        ProgressBar1.Visible = False

شكرا على الكود

ولكن يعيطني هذا الخطأ واللذي من الاول وماعرفت

كود :

Access to the path 'C:\Users\M.Salman\Desktop\test1' is denied.

إقتباس :Access to the path 'C:\Users\M.Salman\Desktop\test1' is denied.

هذا معناه أن الملف الذي تريد أن تنسخه ( ممنوع الوصول إليه )

السبب هو أن تطبيقك ليس له الإذن بالتعامل مع المسارات ( المجلدات ) المهمة في النظام مثل :

DeskTop و System32 و Windows و Program Files ... إلخ

الحل كالتالي :

________________________________________________________________________________

1 :

2 :

3 :

* حول asInvoker إلى HighestAvailable

4 :

5 : سيصبح التطبيق هكذا

بمعنى التشغيل كمسؤول

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

محمد سلمان

محمد سلمان

Dev Saeed