دستور Exists برای وجود داشتن فولدر

Imports System.IO

Dim newdir1 As New DirectoryInfo("d:\111")
Dim newdir2 As New DirectoryInfo("d:\222")

'(1)
If Directory.Exists(newdir1.FullName) Then
     MsgBox("Directory1Exists")
Else
     newdir1.Create()
End If

'(2)
If newdir2.Exists Then
     MsgBox("Directory2Exists")
Else
     newdir2.Create()
End If