[Visual Studio 2008] Webclient kilobyte naar megabyte

[creative]

Hallo mede helpers,

Ik heb een probeempje met mijn WebClient. Als hij een file aan het downloaden is dan staat er bij de download size: 19850 MB en wil graag dat het er zo uit ziet: 198.50 MB

Hier is mijn code:

Dim ontvangen As Integer = e.BytesReceived / 10485

Mvg Creative

 

[creative]

Ik heb het gevonden!

Function SetBytes(ByVal Bytes As String)



        If Bytes >= 1073741824 Then
            SetBytes = Format(Bytes / 1024 / 1024 / 1024, "#0.00") & " GB"
        ElseIf Bytes >= 1048576 Then
            SetBytes = Format(Bytes / 1024 / 1024, "#0.00") & " MB"
        ElseIf Bytes >= 1024 Then
            SetBytes = Format(Bytes / 1024, "#0.00") & " KB"
        ElseIf Bytes < 1024 Then
            SetBytes = Fix(Bytes) & " Bytes"
        End If



    End Function