Función aDir en Visual Basic .NET (Obtener listado con propiedades de archivos a partir de una ruta)

La siguiente función esta inspirada en la función aDir existente en FoxPro. Esta función permite obtener un listado de los archivos que se encuentran dentro de un directorio, cada uno de los componentes de la lista contiene un detalle con sus respectivas propiedades. Solo es necesario enviar por parámetro la ruta completa.

    Structure PropiedadesArchivo

        Public Directorio As String
        Public Nombre As String
        Public Tamano As Integer
        Public Existe As Boolean
        Public SoloLectura As Boolean
        Public FechaUltimoAcceso As Date
        Public FechaModificacion As Date
        Public FechaCreacion As Date
        Public Extension As String

    End Structure

    Shared Function ADIR(ByVal cFileSkeleton As String) As List(Of PropiedadesArchivo)

        Try

            Dim propiedades As New List(Of PropiedadesArchivo)

            Dim di As New DriveInfo(Path.GetDirectoryName(cFileSkeleton))
            Dim dirInfo As DirectoryInfo = di.RootDirectory

            Dim filename() As FileInfo = dirInfo.GetFiles(Path.GetFileName(cFileSkeleton))

            For Each file As FileInfo In filename

                Dim propiedad As New PropiedadesArchivo()

                With propiedad
                    .Directorio = file.DirectoryName
                    .Nombre = file.Name
                    .SoloLectura = file.IsReadOnly
                    .Existe = file.Exists
                    .Tamano = file.Length / 1024
                    .FechaCreacion = file.CreationTime
                    .FechaModificacion = file.LastWriteTime
                    .FechaUltimoAcceso = file.LastAccessTime
                    .Extension = file.Extension

                End With

                propiedades.Add(propiedad)

            Next

            Return propiedades

        Catch ex As Exception

            Throw New Exception("Error al obtener información. Verifique FileSkeleton")

        End Try

    End Function

Esta función puede ser utilizada de dos maneras distintas:

-La primera forma es enviar la ruta completa con el nombre del archivo (C:\prueba.txt), en este caso la función retornara una lista con un elemento y sus propiedades(nombre, extensión, tamaño, etc.).
-La segunda manera de utilizarla es a través del uso de comodines (C:\*.txt, C:\*.*), el resultado para este método será un listado con todos los archivos que satisfacen la condición, cada uno de los cuales tendrá sus respectivas propiedades.

Si tienen alguna duda con respecto a este método, no duden en dejar su comentario.

Esperamos sea de su utilidad,

Saludos

También te podría gustar...

1 respuesta

  1. Mu chas gracias por el código de sirvió de mucho

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *