Feedback

VB - Pfad der eigenen Anwendung bestimmen

Veröffentlicht von am 13.08.2012
(1 Bewertungen)
Hier also auch mal mein erstes Snippet.
Die Funktion bestimmt den Pfad der eigenen Anwendung. Dabei werden auch UNC-Pfade unterstützt.
GFU-Schulungen  [Anzeige]

Angular mit ASP.NET Core für .NET-Entwickler

.NET ist Ihnen vertraut, als Entwickler verfügen Sie über einschlägige Kenntnisse. In diesem Kurs lernen Sie nun, Angular in .NET-Umgebungen einzusetzen. Sie verstehen das Konzept von Angular und integrieren das clientseitige JS-Framework sicher in.NET-Anwendungen.

C# Komplett

Sie kennen sich in objektorientierter Programmierung aus. Sie schreiben C++ oder Java? Und nun stehen Sie vor der Aufgabe, in C# Anwendungen zu erstellen. Das C# Komplett-Seminar verschafft Ihnen umfassende Programmierkenntnisse in dieser Sprache. Nach der Schulung entwickeln Sie selbständig Anwendungen mit C#. Sie kennen die Datentypen und Klassenbibliotheken der objektorientierten Programmiersprache C#. Der Komplettkurs setzt bei den Grundlagen von C# ein. Sie arbeiten mit Variablen und konvertieren Typen. Multithreading, Delegates, Generics sind nach dem Seminar für Sie kein Geheimnis mehr.

Public Function Getselfdirectory() As String
        Dim strselfdirectory As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
        strselfdirectory = strselfdirectory.Replace("file:\", " ")
        strselfdirectory = Trim(strselfdirectory)
        If strselfdirectory.EndsWith("\") Then
            If strselfdirectory.Contains(":") Then
                Return strselfdirectory
            Else
                strselfdirectory = "\\" & strselfdirectory
                Return strselfdirectory
            End If
            Return strselfdirectory
        Else
            If strselfdirectory.Contains(":") Then
                Return strselfdirectory & "\"
            Else
                strselfdirectory = "\\" & strselfdirectory & "\"
                Return strselfdirectory
            End If
            Return "\\" & strselfdirectory & "\"
        End If
        Return strselfdirectory
End Function
Abgelegt unter UNC, String, Assembly, Pfad.

2 Kommentare zum Snippet

Volker Steitz schrieb am 14.08.2012:
Ginge auch so:
My.Application.Info.DirectoryPath.ToString
Banane schrieb am 25.08.2012:
Das stimmt. Manchmal sieht man aber den Wald vor lauter Bäumen nicht :)
Funktionieren tut es auf jeden Fall...
 

Logge dich ein, um hier zu kommentieren!