System IO VB.Net by API

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