VB.Net by API/System.IO/FileSystemInfo

FileSystemInfo.Attributes

<source lang="vbnet"> 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

 </source>

FileSystemInfo.Name

<source lang="vbnet"> 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

 </source>