بسم الله الرحمن الرحيم 

أقدم لكم الاداة FileCop التى تقوم بنسخ الملفات مع استخدام شريط تقدم ProgressBar ليس فقط من على جهاز الكمبيوتر بل يمكنك استخدامها لنسخ ملف موجود على شبكة الانترنت الى جهاز الكمبيوتر أو بمعى أصح تحميل من الشكبة للجهاز ....ويتم استخدامها على النحو التالى :

1_ قم بإضافة الاداة الى مشروعك 

2_ لنسخ ملف معين يتم أستخدام الكود التالى :

الكود:

 On Error GoTo CopyError
    FileCopier1.CopyFile txtFrom.Text, txtTo.Text
    Exit Sub

CopyError:
    FileCopier1_CopyComplete 0
    MsgBox "Error " & Format$(Err.Number) & " copying file." & _
        vbCrLf & Err.Description
    Exit Sub

حيث أن :

_txtFrom.Text ....مربع النص الذى سيتم كتابة مسار و اسم مصدر الملف المراد نسخة 
_txtTo.Text .......مربع النص الذى سيتم كتابة المسار الذى سيتم وضع الملف فيه .


3_ فى حدث FileCopier1_Progress للاداة يمكنك استخدام الكود التالى لاستخدام شريط الحالة فى عملية النسخ

الكود:

Private Sub FileCopier1_Progress(ByVal total_bytes As Long, ByVal bytes_copied As Long)
If total_bytes = 0 Then
      
        lblStatus.Caption = Format$(bytes_copied) & _
            " bytes copied"
      
        prgStatus.Visible = False
    Else
              
              lblStatus.Caption = Format$(bytes_copied) & _
            " of " & Format$(total_bytes) & " bytes copied"

        
        If Not prgStatus.Visible Then
            prgStatus.Min = 0
            prgStatus.Max = total_bytes
        End If

      
        prgStatus.Value = bytes_copied
        If Not prgStatus.Visible Then prgStatus.Visible = True
    End If

End Sub



و النتيجة كما فى الشكل التالى :

عظيم جدا على مجهودك أخى end sub

Thanxxxxxxxxxxxxxxxxx