Imports System
Imports System.IO
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim path As String = "C:\programming\projects"
Try
If Directory.Exists(path) Then
Console.WriteLine("Directory Exists")
Else
Console.WriteLine("Directory Not Exists")
End If
Catch e As Exception
Console.WriteLine(e.Message)
End Try
End Sub
End Class
' run:
'
' Directory Not Exists
'