چجوری میشه سرعت کپی کردن رو پیدا کرد؟

[farzad93]

مثلا میخوام یه فایل رو از درایو c به d کپی کنم.
میشه فهمید که چند kb/s سرعت کپی کردنه؟

[vbhamed]

سلام

بايد فايل رو خودتون باز كنيد و بايت به بايت كپي كنيد و سرعت رو اندازه بگيريد
البته نه ابنكه واقعا يك بايت يك بايت بلكه مثلا به صورت حداقل 10000 بايت 10000 بايت تا سرعت پايين نياد

[farzad93]

سلام

بايد فايل رو خودتون باز كنيد و بايت به بايت كپي كنيد و سرعت رو اندازه بگيريد
البته نه ابنكه واقعا يك بايت يك بايت بلكه مثلا به صورت حداقل 10000 بايت 10000 بايت تا سرعت پايين نياد
یعنی دقیقا باید چیکار کنم؟

[kuh_nur]

سلام
همونطور که اقا حامد گفتن شما باید فایل رو بصورت باینری باز کنید و کپی هر 10 کیلو بایت و یا بیشتر رو معادل یک ثانیه در نظر بگیرید بعد اونو نسبت به اندازه فایل بصورت درصدی نشون بدین

[pcdownload.bloghaa.com]

سلام
یه کامند باتن و یک تکست باکس روی فرم قرار داده وکد زیر را بنویسید.

Dim a As String
Dim b As Long
Private Sub Command1_Click()
Timer1.Enabled = False
Timer1.Interval = 1
Open "c:\test.ext" For Binary As #1
a = Space(LOF(1))
Get #1, , a
Close #1
'''''''''''''''
For i = 1 To (FileLen("d:\test.ext") \ 1024) * 1024 + 1 Step 1024
b = 0
Timer1.Enabled = True
Open "d:\test.ext" For Binary As #1
Put #1, i, Mid(a, i, 1024)
Close #1
Text1 = b / 1000
Timer1.Enabled = False
Next i
'''''''''''''''
'''''''''''''''
b = 0
Timer1.Enabled = True
Open "d:\test.ext" For Binary As #1
Put #1, i, Mid(a, (FileLen("d:\test.ext") \ 1024) * 1024 + 1)
Close #1
Text1 = b / 1000
Timer1.Enabled = False
'''''''''''''''
MsgBox "copy complete"
End Sub

Private Sub Timer1_Timer()
b = b + 1
End Sub

[xxxxx_xxxxx]

یعنی دقیقا باید چیکار کنم؟
یک نمونه در این تاپیک:
http://barnamenevis.org/forum/showthread.php?t=215034

[farzad93]

سلام
یه کامند باتن و یک تکست باکس روی فرم قرار داده وکد زیر را بنویسید.

این کارو کردم ولی وقتی روی کامند باتن کلیک میکنم not responding میشه!