Mega Code Archive

 

Categories / VB.Net by API / System IO

 

FileAttributes Normal

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