Get the Application Path

The function below returns the appliction path for an appliction in the Compact Framework.

Shared Function GetAppPath() As String

Dim mstrPath As String

mstrPath = _
   System.IO.Path.GetDirectoryName
   (System.Reflection.Assembly.GetExecutingAssembly().GetModules
   (0).FullyQualifiedName)

If Right(mstrPath, 1) <> "\" Then

mstrPath += "\"

End If

Return mstrPath

End Function

Tip Submitted By: David McCarter & Marquis Howard