Originariamente inviato da Vinsent
http://msdn.microsoft.com/it-it/library/6y6135ed.aspx

Non è che sia molto chiaro l'esempio, infatti a me non funziona.

Ho comunque risolto semplicemente con
Dim percorso As String
percorso = My.Computer.FileSystem.CurrentDirectory

Grazie per l'interesse