Obtendo o diretório atual usando Directory.GetCurrentDirectory

'Este exemplo mostra como obter o caminho do
'diretório atual

Imports System.IO

Module Module1
  Sub Main()
    'obtém o caminho do diretório atual
    Dim dirAtual As String = Directory.GetCurrentDirectory()

    Console.WriteLine("O diretório atual é: " & dirAtual)

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