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