Mit dieser einfachen Function lässt sich ganz einfach bestimmen, welche Größe eine Datei hat.
Man bekommt nicht wenn man z.B FileLen aufruft eine große Anzahl Bytes, mit der keiner was anfangen kann.
Dim kb As Integer = 1024
Dim mb As Integer = kb * 1024
Dim gb As Integer = mb * 1024
Private Function GetSizeType(ByVal size As Integer) As String
If size < kb Then
Dim newSize As Integer = size
Return newSize & " Bytes".ToString()
ElseIf size < mb Then
Dim newSize As Integer = size / kb
Return newSize & " KB".ToString()
ElseIf size < gb Then
Dim newSize As Integer = size / mb
Return newSize & " MB".ToString()
ElseIf size >= gb Then
Dim newSize As Integer = size / gb
Return newSize & " GB".ToString()
Else
Return Nothing
End If
End Function
3 Kommentare zum Snippet