Mega Code Archive

 

Categories / VB.Net Tutorial / Stream File

 

Get files under My Computer FileSystem SpecialDirectories MyDocuments

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