Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
Trucos Expresar bytes en otras unidades (Visual Basic).

Expresar bytes en otras unidades (Visual Basic).

Autor: Enviado por: Hurricane - Enviado con fecha: 22-04-2005 06:45:19.

Esta función sirve para expresar bytes en otras unidades (Kilobytes, Megabytes, etc.), de modo que la cantidad a manejar se reduzca

Function ConvBytes(ByVal Bytes#) As String
    Dim Nm(0 To 4) As String, L As Integer
    Dim S As String
    Nm(0) = "Bytes"
    Nm(1) = "Kilobytes"
    Nm(2) = "Megabytes"
    Nm(3) = "Gigabytes"
    Nm(4) = "Terabytes"
    L = 0
    While (Fix(Bytes / 1024#) > 0) And (L < 4)
        L = L + 1
        Bytes = Bytes / 1024#
    Wend
    S = LTrim(Str(Bytes))
    If InStr(1, S, ".") > 0 Then S = Left(S, InStr(1, S, ".") + 2)
    ConvBytes = S + " " + Nm(L)
End Function

Si necesitan un ejemplo, me envían un e-mail a LeoSilvaChile@Gmail.com y listo.
Espero que les sea de utilidad. Saludos ;-)
InicioBlog
^ SubirAviso legal
Política Privacidad
Configurarequipos15 Octubre 2019