'Este trecho de código mostra como usar a propriedade 
'My.Computer.FileSystem.CurrentDirectory para obter o nome
'do diretório atual

Module Module1
  Sub Main()
    Dim dirAtual As String = _
      My.Computer.FileSystem.CurrentDirectory

    'exibe o nome do diretório atual
    Console.WriteLine("O diretório atual é: " & dirAtual)

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