Sección vb.net

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones empresariales sobre base de datos

33 - Convertir Bytes a MegaBytes y GigaBytes

Para el ejemplo iniciar un nuevo proyecto y colocar un control textBox en el formulario.

Luego al iniciarlo , en el código se recorren las unidades accesibles en el equipo para obtener los bytes ( propiedad TotalSize de DriveInfo ) , y se realiza la conversión mediante dos simples funciones que retornan una cadena con el valor en Megas y Gigas. El resultado de la conversión se visualiza en la caja de texto

Código fuente

Option Explicit On Option Strict On Public Class Form1 ' Función que retorna un String con el valor en GigaBytes Private Function ConvertBytesToMB(ByVal bytes As Int64) As String Dim mb As Double = bytes / 1048576 Return mb.ToString End Function ' Función que retorna un String con el valor en MegaBytes Private Function ConvertBytesToGB(ByVal bytes As Int64) As String Dim gb As Double = bytes / 1073741824 Return gb.ToString("N") End Function Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' Para las unidades Dim xDrive As System.IO.DriveInfo ' variable para el resultado Dim sDatos As String = "" ' recorrer las unidades Try For Each xDrive In System.IO.DriveInfo.GetDrives ' si se puede leer ... If xDrive.IsReady = True Then ' imprime la letra y el valor en bytes sDatos = sDatos & xDrive.Name.ToString & vbCrLf sDatos = sDatos & " -- BYTES: " & xDrive.TotalSize & vbCrLf ' convierte de bytes a MegaBytes y gigaBytes sDatos = sDatos & " -- MEGAS: " & ConvertBytesToMB(xDrive.TotalSize) sDatos = sDatos & vbCrLf & " -- GIGAS: " & ConvertBytesToGB(xDrive.TotalSize) sDatos = sDatos & vbCrLf & "-----------------------" & vbCrLf End If Next ' visualiza el resultado de la conversión en el Textbox TextBox1.Text = sDatos ' errores Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub End Class

Recursos Visual basi 6.0 - Enlaces

Convertir a Gigas y megas en vb6

Buscar en Recursos vb