Mega Code Archive

 

Categories / VB.Net Tutorial / Collections

 

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