Como testar a existência de um diretório

'Este exemplo mostra como verificar a existência
'de um diretório

Imports System.IO

Module Module1
  Sub Main()
    'nome do diretório
    Dim dir As String = "c:\estudos_vb"

    'Verifica se o diretório existe
    If Directory.Exists(dir) Then
      Console.WriteLine("O diretório existe.")
    Else
      Console.WriteLine("O diretório não existe.")
    End If

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module