Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - ¿Cómo obtener el tamaño de un fichero en VB.Net 2010?
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information ¿Cómo obtener el tamaño de un fichero en VB.Net 2010?

Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: ¿Cómo obtener el tamaño de un fichero en VB.Net 2010? Responder citando

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?
MensajePublicado:
Jue Jun 09, 2011 7:56 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: ¿Cómo obtener el tamaño de un fichero en VB.Net 2010? Responder citando



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).
MensajePublicado:
Jue Jun 09, 2011 8:07 pm
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net  

Cambiar a:  
Key
  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