Asunto: ¿Cómo obtener el tamaño de un fichero en VB.Net 2010?
Estoy usando Visual Basic .Net de Visual Studio 2010 por primera vez. Estoy desarrollando una aplicación de facturación y contabilidad. Tengo una duda ¿cómo puedo obtener el tamaño de un fichero? desde mi aplicación permito al usuario añadir ficheros a las facturas, pero antes de guardarlos en la base de datos SQL Server quiero comprobar su tamaño para advertir al usuario si es muy grande ¿cómo saco el tamaño de un fichero con VB.Net?
Publicado:
Jue Jun 09, 2011 7:56 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: ¿Cómo obtener el tamaño de un fichero en VB.Net 2010?
Anuncios
varios escribió:
Estoy usando Visual Basic .Net de Visual Studio 2010 por primera vez. Estoy desarrollando una aplicación de facturación y contabilidad. Tengo una duda ¿cómo puedo obtener el tamaño de un fichero? desde mi aplicación permito al usuario añadir ficheros a las facturas, pero antes de guardarlos en la base de datos SQL Server quiero comprobar su tamaño para advertir al usuario si es muy grande ¿cómo saco el tamaño de un fichero con VB.Net?
Puedes usar la propiedad "Length" del tipo FileInfo.
A continuación te mostramos una función Visual Basic .Net que obtiene el tamaño de un fichero en bytes:
Código:
Function tamanoFichero(ByVal rutaFichero As String) As Long
Dim fichero As New FileInfo(rutaFichero)
Return fichero.Length
End Function
Un ejemplo de uso de la función anterior:
Código:
Private Sub obtenerTamanoFicheros()
Dim tamanoFicheros As Double
Dim i As Integer
'Obtenemos el tamaño de los ficheros adjuntos seleccionados
For i = 0 To lsAdjuntos.Items.Count - 1
tamanoFicheros = tamanoFicheros +
tamanoFichero(lsAdjuntos.Items(i))
Next
'Mostrar en Kilobytes si es menor de un megabyte
If tamanoFicheros < 1048576 Then
tamanoFicheros = tamanoFicheros / 1024
lInfoAdjuntos.Text = "Tamaño: " &
FormatNumber(tamanoFicheros, 2) + " KB"
Else
tamanoFicheros = tamanoFicheros / 1024 / 1024
lInfoAdjuntos.Text = "Tamaño: " &
FormatNumber(tamanoFicheros, 1) + " MB"
End If
End Sub
El código anterior muestra en un Label (lInfoAdjuntos) el tamaño total de todos los ficheros contenidos en el ListBox (lsAdjuntos).
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A