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