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