Subdirectorios Curso de Programación Visual Basic

Lección:

Bibliotecas Adicionales


Ejercicio:

Subdirectorios 5


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