Mega Code Archive

 

Categories / VB.Net by API / System

 

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