.Net Compact Framework(vb.net) 取得應用程序安裝的目錄

Public Function GetPath() As String
Dim app As String
app = System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase
Dim path As String
path = System.IO.Path.GetDirectoryName(app)
GetPath = path
End Function