Manipulación de archivos mediante las clases File y FileInfo - II

Para obtener los atributos de un archivo, disponemos del método GetAttributes( ), al que pasamos la ruta de un archivo, y devuelve un valor de la enumeración FileAttributes con la información sobre los atributos. En el caso de que al intentar acceder a un archivo, este no exista, se producirá una excepción de tipo FileNotFoundException, que podemos tratar en una estructura de manejo de excepciones. 

Ver el Código fuente 376.

Dim sNombreFich As String

Dim oAtributos As FileAttributes

Try

Console.WriteLine("Introducir ruta y archivo")

sNombreFich = Console.ReadLine()

oAtributos = File.GetAttributes(sNombreFich)

Console.WriteLine("Atributos del archivo: {0}", oAtributos.ToString())

Catch oExcep As FileNotFoundException

Console.WriteLine("Se ha producido un error {0}{1}", _

ControlChars.CrLf, oExcep.Message)

Finally

Console.WriteLine("Proceso finalizado")

Console.ReadLine()

End Try

Código fuente 376