المشاركات : 15
المواضيع 6
الإنتساب : Sep 2013
السمعة :
0
الشكر: 5
تم شكره 5 مرات في 3 مشاركات
السلام عليكم ورحمة الله وبركاته
أخواني العزاء
أرجوا منكم مساعدتي في ايجاد كود لنسخ مفلات من مجلد إلى مجلد أخر
المشاركات : 15
المواضيع 6
الإنتساب : Sep 2013
السمعة :
0
الشكر: 5
تم شكره 5 مرات في 3 مشاركات
شكرا لكم أخواني العزاء
هل يمكن جعل البروقرس بار يتتعبى على حسب النقل جربت دا الكود بس بيحمل البروقرس بار بعد ما ينفل
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
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
شوف المثال اللي اعطيتك الرابط الخاص به حدثت الموضوع.