VB.NET-Tipp 0039: Application.Path im Compact-Framework

 
' Dieser Quellcode stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!

' Projektversion:   Visual Studio 2002/2003
' Option Strict:    Aus
' Option Explicit:  An
'
' Referenzen: 
'  - System
'  - System.Data
'  - System.XML
'
' Imports: 
'  - Microsoft.VisualBasic
'  - System
'  - System.Collections
'  - System.Data
'  - System.Diagnostics
'

' ##############################################################################
' ############################### modAppPath.vb ################################
' ##############################################################################
Module modAppPath
    Sub Main()
        Console.WriteLine(App_Path)
    End Sub

    ' Funktioniert sowohl mit dem Compact, als auch mit dem normalen
    ' .NET-Framework
    Public Function App_Path() As String
        Return System.IO.Path.GetDirectoryName( _
            System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
    End Function
End Module

System.Windows.Forms.Application.StartupPath