Get FileSystemInfos : FileSystemInfo « Stream File « VB.Net Tutorial

1. VB.Net Tutorial
2. Stream File
3. FileSystemInfo

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

FOLDER
Adobe
FOLDER
AMD
FOLDER
ATI Technologies
FOLDER