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

Además de esta excepción, el espacio de nombres IO proporciona algunas clases de excepción adicionales para tratar otras diversas circunstancias de error. Consulte el lector la documentación de la plataforma referente a IO. 

Los métodos Copy( ), Move( ) y Delete( ), nos permiten copiar, mover y borrar respectivamente el nombre de archivo que pasemos como parámetro. El método GetCreationTime( ) nos devuelve un tipo Date con la fecha de creación del archivo. 

Por otro lado, si queremos obtener información adicional sobre un archivo, como su nombre, extensión, ruta, etc., instanciaremos un objeto FileInfo( ), pasando al constructor una cadena con el nombre del archivo, y utilizaremos algunas de sus propiedades como Name, Extensión, DirectoryName. Veamos una muestra de todo esto en el Código fuente 377.

Dim sNombreFich As String

Dim iOperacion As Integer

Dim oFInfo As FileInfo

Console.WriteLine("Introducir ruta y archivo")

sNombreFich = Console.ReadLine()

Console.WriteLine("Fecha creación archivo: {0}", _

File.GetCreationTime(sNombreFich))

oFInfo = New FileInfo(sNombreFich)

Console.WriteLine("Introducir el número de operación a realizar:")

Console.WriteLine("1 - Copiar")

Console.WriteLine("2 - Mover")

Console.WriteLine("3 - Borrar")

iOperacion = Console.ReadLine()

Select Case iOperacion

Case 1

File.Copy(sNombreFich, "\pruebas\distinto" & oFInfo.Extension)

Case 2

Console.WriteLine("Vamos a mover el archivo {0}", oFInfo.Name)

Console.WriteLine("que está en la ruta {0}", oFInfo.DirectoryName)

File.Move(sNombreFich, "\pruebas\" & oFInfo.Name)

Console.WriteLine("Completado")

Console.ReadLine()

Case 3

File.Delete(sNombreFich)

End Select

Código fuente 377