ProgressBar و رابطه اون با کپی ؟!

[Samsam2010]

سلام
در کپی کردن فایل ها
به چه شکل Progress bar برای برنامه قرار دهم (دوستان منظورم این است که به چه نحوی باید پروگرس بار رو پر کنم یعنی زمان باقیمانده کپی و زمان سپری شده و ...)
مثلا فایلی که داره کپی میکنه نوارپیشرفت هم با کپی پیش بره

[mpmsoft]

در چند پستی قبل کدی برای کپی فایل گذاشتم ناچارا اونو دوباره قرار می دم با تغییری که می دم می تونید برای اون خط پیشروفت بذارید





Public Function CopyFileAny(currentFilename As String, _
newFilename As String)
On Error GoTo ErrHan
Dim A%, buffer%, Temp$, fRead&, fSize&, b%
A = FreeFile: buffer = 4048
Open currentFilename For Binary Access Read As A
b = FreeFile
Open newFilename For Binary Access Write As b
fSize = FileLen(currentFilename): fRead = 0
ProgressBar1.Max=fsize

While fRead < fSize

If buffer > (fSize - fRead) Then buffer = (fSize - fRead)
Temp = Space(buffer)
Get A, , Temp
Put b, , Temp
fRead = fRead + buffer: DoEvents
ProgressBar1.Value = ProgressBar1.Value + fRead
DoEvents
Wend

Close A: Close b: CopyFileAny = 1
Exit Function
ErrHan:
CopyFileAny = 0
End Function

[Samsam2010]

از شما تشکر می کنم استاد
اما من با این تابع مشکل دارم بفرمایید
اینم از سورس اگه زحمتی نیست یه نگاه بندازید در قسمت کپی ببینید مشکل از کجاست
39395