2 façons avec exemples. Le tout tiré directement de l'aide.
Application.StartupPath, propriété
L'exemple de code suivant permet d'obtenir cette propriété et d'afficher sa valeur dans une zone de texte. L'exemple requiert que textBox1 ait été placé dans un formulaire.
Private Sub PrintStartupPath()
textBox1.Text = "The path for the executable file that " & _
"started the application is: " & _
Application.StartupPath
End Sub
ou
My.Application.Info.DirectoryPath
Cet exemple utilise la propriété My.Application.Info.DirectoryPath pour afficher le chemin d'accès du répertoire où l'application est stockée.
Ou bien, si tu ne veux utiliser un object application. Il faut se souvenir que la classe Ap, plication appartient à l'espace de noms System.windows.Forms. Vb 2010 et 2012 sont très pointilleux avec cela. Tu dois soit Importer System.windows.forms, soit utiliser le chemin au long:
dim chemin as string = System.windows.forms.appliation.startuppath