8.16.21.Illustrate the pattern of using the Dir function. It is not intended to be compiled.
Option Strict On
Public Module modErr
Public Sub Main() Dim filename As String
filename = Dir("*.*", FileAttribute.Normal)
Do While Not filename = String.Empty
Console.WriteLine(filename)
filename = Dir()
Loop End Sub End Module