Ejercicio
Subdirectorios
Objetivo
Cree un programa para almacenar los archivos que se encuentran en un determinado directorio y sus subdirectorios.
Luego, le preguntará al usuario qué texto buscar y mostrará los archivos que contienen ese texto en su nombre.
El programa finalizará cuando el usuario introduzca una cadena de búsqueda vacía.
Código
Imports System
Imports System.IO
Class Subdirectories
Private Shared Sub Main()
Try
Dim text As String = ""
Console.Write("Enter a directory for search: ")
text = Console.ReadLine()
While text <> ""
Dim directory As DirectoryInfo = New DirectoryInfo(text)
Dim files As FileInfo() = directory.GetFiles("*.*")
Dim directories As DirectoryInfo() = directory.GetDirectories()
Dim i As Integer = 0
While i < files.Length
Console.WriteLine((CType(files(i), FileInfo)).FullName)
i += 1
End While
For i = 0 To directories.Length - 1
Console.WriteLine((CType(directories(i), DirectoryInfo)).FullName)
Next
Console.Write(vbLf & "Enter a directory for search: ")
text = Console.ReadLine()
End While
Catch ex As Exception
Console.WriteLine(ex.ToString())
End Try
End Sub
End Class