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.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 310628

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

Ausgedruckt am: 08.11.2024 um 15:11 Uhr

4 Kommentare

Neuester Kommentar

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.