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
Mu chas gracias por el código de sirvió de mucho