Get files under My.Computer.FileSystem.SpecialDirectories.MyDocuments : SpecialDirectories « Stream File « VB.Net Tutorial

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

Option Strict On

Imports System.IO

Public Module FileSystemAttributes
   Public Sub Main()
      Dim docPath As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments

      For Each fn As String In My.Computer.FileSystem.GetFiles(docPath)
         Dim fi As FileInfo = New FileInfo(fn)
         Console.WriteLine("{0}: {1}", fi.Name, fi.Attributes.ToString())
      Next
   End Sub
End Module

Default.rdp: Hidden, Archive
desktop.ini: Hidden, System, Archive