+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعده في تعبئة البروقرس بار (/showthread.php?tid=3994)
مساعده في تعبئة البروقرس بار - محمد سلمان - 07-10-14
السلام عليكم
هل يمكن جعل البروقرس بار يتحمل مع نسخ الملفات وليس بعد النسخ
انا جربت دا اكون ولكن يحمل البروقرس بعد النسخ
كود :
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 = FalseRE: مساعده في تعبئة البروقرس بار - محمد سلمان - 07-10-14
شكرا على الكود
ولكن يعيطني هذا الخطأ واللذي من الاول وماعرفت
كود :
Access to the path 'C:\Users\M.Salman\Desktop\test1' is denied.RE: مساعده في تعبئة البروقرس بار - Dev Saeed - 30-10-14
إقتباس :Access to the path 'C:\Users\M.Salman\Desktop\test1' is denied.
هذا معناه أن الملف الذي تريد أن تنسخه ( ممنوع الوصول إليه )
السبب هو أن تطبيقك ليس له الإذن بالتعامل مع المسارات ( المجلدات ) المهمة في النظام مثل :
DeskTop و System32 و Windows و Program Files ... إلخ
الحل كالتالي :
________________________________________________________________________________
1 :
2 :
3 :
* حول asInvoker إلى HighestAvailable
4 :
5 : سيصبح التطبيق هكذا
بمعنى التشغيل كمسؤول