Manipulación de directorios mediante las clases Directory y DirectoryInfo - I

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