Display executable files in directory VB.Net Exercise - Visual Basic Programming Course

Imports System
Imports System.IO
Class DisplayExecutableFiles
    Private Shared Sub Main()
        Dim files As String() = Directory.GetFiles(".")

        For Each file As String In files
            Dim extension As String = Path.GetExtension(file)

            Select Case extension
                Case ".exe", ".com", ".bat", ".cmd"
                    Console.WriteLine(file)
            End Select
        Next
    End Sub
End Class