My.Computer.FileSystem.GetDirectories : My « System « VB.Net by API

1. VB.Net by API
2. System
3. My

My.Computer.FileSystem.GetDirectories

  

Option Strict On

Imports System.Collections.ObjectModel
Imports System.IO

Public Module FileSystem
   Public Sub Main()
      Dim dirPath As String = "c:\\"

      If String.IsNullOrEmpty(dirPath) Then Exit Sub
      If Not Directory.Exists(dirPath) Then Exit Sub
      
      Dim dirs As ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetDirectories(dirPath)
      For Each dir As String In dirs
         Dim dirInfo As DirectoryInfo = New DirectoryInfo(dir)
         Console.WriteLine("{0} : Created {1}", dirinfo.Name,dirInfo.CreationTime)
      Next
   End Sub
End Module

   
    
  

Related examples in the same category