Following we shall use the directoryinfo function to request user to keyin the directory information and the system.io well help the user to find wether the directory exist or not! if it exist then will show up what in that directory! please see the pictures:

and following is the coding:

Imports System.IO
03 Module Module1
05    Sub Main()
06        Console.Write("請輸入路徑->")
07        Dim fpath As String = Console.ReadLine
08        Dim dir As New DirectoryInfo(fpath)
10        If Not dir.Exists Then ‘判斷路徑是否不存在
11            Console.WriteLine("路徑不存在")
12            Console.Read()
13            Return
14        End If
15        Console.WriteLine("{0}資料夾下的子資料夾如下：", dir.FullName)
16        Dim subdir() As DirectoryInfo = dir.GetDirectories
17        For Each r As DirectoryInfo In subdir
18            Console.WriteLine("完整路徑：{0}      {1}建立時間{2}", _
                 r.FullName, vbTab, r.CreationTime)
19        Next
20        Console.Read()
22    End Sub
23 End Module

wish you through this two example can understand how to use system.io!