Imports System
Imports System.IO
Public Class NameTest
Public Shared Sub Main()
Dim di As New DirectoryInfo(Environment.CurrentDirectory)
Dim fi As FileInfo() = di.GetFiles()
Dim fiTemp As FileInfo
For Each fiTemp In fi
Console.WriteLine(fiTemp.Name)
Next fiTemp
End Sub
End Class