Las clases Directory y DirectoryInfo contienen métodos y propiedades para crear, borrar, copiar y
mover directorios, así como otra serie de tareas para su manejo y obtención de información.
Al igual que sucedía con las clases del anterior apartado, los miembros de Directory son compartidos,
mientras que los de DirectoryInfo son de instancia; esta es su principal diferencia.
En el ejemplo del Código fuente 378, el método Exists( ) comprueba la existencia de un directorio, y
en caso afirmativo, obtenemos su última fecha de uso mediante GetLastAccessTime( ). Seguidamente
obtenemos un array String con su lista de archivos mediante GetFiles( ), y creamos un subdirectorio de
respaldo con CreateSubdirectory( ). En caso de que el directorio no exista, lo creamos con
CreateDirectory( ).
Dim sNombreDir As String
Dim Archivos() As String
Dim Archivo As String
Dim oDirInfo As DirectoryInfo
Console.WriteLine("Introducir un nombre de directorio")
sNombreDir = Console.ReadLine()
If Directory.Exists(sNombreDir) Then
Console.WriteLine("Fecha último acceso: {0}", _
Directory.GetLastAccessTime(sNombreDir))
Console.WriteLine("Archivos del directorio {0}", sNombreDir)
Archivos = Directory.GetFiles(sNombreDir)
For Each Archivo In Archivos
Console.WriteLine(Archivo)
Next
oDirInfo = New DirectoryInfo(sNombreDir)
oDirInfo.CreateSubdirectory("bak")
Else
Directory.CreateDirectory(sNombreDir)
Console.WriteLine("No existía el directorio, se acaba de crear")
End If
Código fuente 378