Función: Obtener la información de un archivo

Esta función lo que pretende es obtener la información básica de un archivo y meterla en un “Array” tipo Hashtable

    Public Function ObtenerInformacion(ByVal Ruta As String) As Hashtable
        Dim Datos As New Hashtable
        Try
            Select Case QueEs(Ruta)
                Case 1 'Directorios
                    Dim Directorio As New DirectoryInfo(Ruta)
                    Datos.Add("Nombre", Directorio.Name.ToString)
                    Datos.Add("Creacion", Directorio.LastWriteTime.ToShortDateString)
                    Datos.Add("Modificacion", Directorio.LastWriteTime.ToShortTimeString)
                    Datos.Add("Tamano", ConvTamano(TamaArchivos(Directorio)))
                    Datos.Add("NArchivos", TotalArchivos(Directorio))
                    Datos.Add("NDirectorios", TotalDirectorios(Directorio))
                    Datos.Add("ESTADO", "Correcto")
                Case 2 'Archivos
                    Dim Archivo As New FileInfo(Ruta)
                    Datos.Add("Nombre", Archivo.Name.ToString)
                    Datos.Add("Creacion", Archivo.LastWriteTime.ToShortDateString)
                    Datos.Add("Modificacion", Archivo.LastWriteTime.ToShortTimeString)
                    Datos.Add("Tamano", ConvTamano(Archivo.Length.ToString))
                    Datos.Add("Extension", Archivo.Extension.ToString)
                    Datos.Add("ESTADO", "Correcto")
            End Select
        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
        End Try
        Return Datos
    End Function
 
    Public Function QueEs(ByVal Ruta As String) As Integer
        Dim Tipo As Integer
        If Directory.Exists(Ruta) Then
            Tipo = 1
        ElseIf File.Exists(Ruta) Then
            Tipo = 2
        Else
            Tipo = 0
            MsgBox("La ruta indicada no existe")
        End If
        Return Tipo
    End Function

Está incluida en la librería ManejosDLL.dll.