try
Dim ms1 As New IO.FileStream("d:\test.jpg", IO.FileMode.Open)
Dim ms2 As New IO.FileStream("d:\000.jpg", IO.FileMode.Create)
Dim buffer(1024) As Byte
Dim count = ms1.read(buffer, 0, buffer.length)
msgbox(ms1.length)
Dim sum As Double = 0
Do While (count > 0)
sum += count
output.show(sum)
ms2.Write(buffer, 0, count)
count = ms1.Read(buffer, 0, buffer.Length)
Loop
ms1.Dispose()
ms2.Dispose()
msgbox("ok")
catch ex As exception
msgbox(ex.message)
End try