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