Función: Formato de tamaño
Esta función lo que pretende es convertir el Valor introducido a un formato parecido al que usa windows para una lectura mas fácil.
Public Function ConvTamano(ByVal Valor As Double) As String Dim Texto As String = "" Dim Tamanos As String() = {" bytes", " Kb", " Mb", " Gb", " Tb", " Pb", " Eb", " Zb", " Yb"} Dim Calculo As Double = Valor Dim ValorTamano As Double = 1 Dim Conta, Conta2, Parada As Integer Conta = 0 Parada = 0 For Each Tama In Tamanos If Conta <> 0 Then ValorTamano = ValorTamano * 1024 Calculo = Calculo - ValorTamano End If If Calculo >= 0 Then Conta = Conta + 1 Parada = 1 Else Conta = Conta - 1 Exit For End If Next If Parada = 1 Then For Conta2 = 1 To Conta Valor = Valor / 1024 Next If Conta = 0 Then Texto = Fix(Valor) & Tamanos(Conta) Else Texto = FormatNumber(Valor, 2) & Tamanos(Conta) End If End If Return Texto End Function
Seguramente haya una manera mejor de hacerlo que esta, pero es mi primera función en VB.
Está incluida en la librería ManejosDLL.dll.