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