Webclient Download Größe in KB, MB etc. umrechnen

Das steht im ProgressChanged Event:

lblGröße.Text = Größe(e.TotalBytesToReceive)

Die Funktion "Größe":

Private Function Größe(ByVal s As Decimal)
        Dim DG As Integer = 0

        Do While s >= 1000
            s /= 1000
            DG += 1
        Loop

        If DG = 0 Then
            Return s & "KB"  
        ElseIf DG = 1 Then
            Return s & "MB"  
        ElseIf DG = 2 Then
            Return s & "GB"  
        ElseIf DG = 3 Then
            Return s & "TB"  
        Else
            Return s & "?"  
        End If
    End Function

Im Label steht -1KB bis der Download abgeschlossen bist, dann steht die FAST richtige Größe da, anstatt MB, GB das kann ich aber später selber ändern.

Please also mark the comments that contributed to the solution of the article

Content-Key: 310628

Url: https://administrator.de/contentid/310628

Printed on: April 19, 2024 at 23:04 o'clock

4 Comments

Latest comment

Hi,
1 KB = 1024 Byte
1 MB = 1024 KB = 1024^2 Byte
1 GB = 1024 MB = 1024^2 KB = 1024^3 Byte
1 TB = 1024 GB = 1024^2 MB = 1024^3 KB = 1024^4 Byte
usw.

E.