Foros del Web - Ver Mensaje Individual

Hell08 · 21-oct-2005, 10:53

ya lo hize .... si a alguien le sirve dejo el codigo
tam = tamaño_del_archivo
Do While tam > 1
peso = tam
tam = tam / 1024
i = i + 1
Loop

If i = 1 Then
nombre_tamaño = "bytes"
ElseIf i = 2 Then
nombre_tamaño = "Kb"
ElseIf i = 3 Then
nombre_tamaño = "Mb"
ElseIf i = 4 Then
nombre_tamaño = "Gb"
End If

saludos

21-oct-2005, 10:53	#3 (permalink)
Hell08 Fecha de Ingreso: enero-2005 Mensajes: 161	ya lo hize .... si a alguien le sirve dejo el codigo tam = tamaño_del_archivo Do While tam > 1 peso = tam tam = tam / 1024 i = i + 1 Loop If i = 1 Then nombre_tamaño = "bytes" ElseIf i = 2 Then nombre_tamaño = "Kb" ElseIf i = 3 Then nombre_tamaño = "Mb" ElseIf i = 4 Then nombre_tamaño = "Gb" End If saludos __________________ existen 10 tipos de personas los que entienden los numeros binarios y los que no :cool: