' 导入命名空间
Imports System.IO

public class Test
   public Shared Sub Main
        Dim strPath As String = "C:\Program Files"
        Dim objDI As New DirectoryInfo(strPath)
        Dim aryItemsInfo() As FileSystemInfo
        Dim objItem As FileSystemInfo

        aryItemsInfo = objDI.GetFileSystemInfos()
        For Each objItem In aryItemsInfo
            If objItem.Attributes And FileAttributes.Directory Then
                Console.WriteLine("FOLDER ")
            Else
                Console.WriteLine("FILE ")
            End If
            Console.WriteLine(objItem.Name)
        Next

   End Sub
End class