Путь к исполняемому файлу

[GPP]

Здравствуйте! Как получить путь к исполняемому фалу в Compact FrameWork. Заранее огромное спасибо!

[GPP]

Вот я нашел! Может кому-то надо кроме меня:
Public Function AppPath() As String
Dim tmp As String
tmp = System.Reflection.[Assembly].GetExecutingAssembly.GetName.CodeBase
Return tmp.Substring(0, tmp.LastIndexOf("\") + 1)
End Function

[Taandr]

Код: Выделить всё

    Friend ReadOnly Property ApplicationPath() As String
        Get
            Return System.IO.Path.GetDirectoryName([Assembly].GetExecutingAssembly().GetModules()(0).FullyQualifiedName)
        End Get
    End Property