VB.net フォルダ確認

        Dim path1 As String = "D:\\test3\\sub1"

        If Directory.Exists(path1) Then
            Console.WriteLine("存在します")
        End If

ネタ元

itsakura.com