Feedback

VB - Programmpfad mittels Erweiterung ermitteln in VB

Veröffentlicht von am 30.08.2008
(1 Bewertungen)
Das VB Pendant von Konstantin Gross´ C# Function zur Ermittlung der Ausführbaren Dateien anhan der Erweiterung.

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.

Visual Studio Team Foundation Server 2017/2015 (TFS) für Entwickler - Kompakt

Nach Teilnahme an dieser Schulung kennen Sie alle wesentlichen Funktionen des TFS für Entwickler. Sie setzen Software-Entwicklung mit dem Visual Studio Team Foundation Server erfolgreich um.


Imports System.IO
Imports System.Management
Imports System.Text
Imports System.Runtime.InteropServices
Imports Microsoft.Win32
Imports System.Drawing

    Declare Function FindExecutableA Lib "shell32.dll" ( _
                 ByVal lpFile As String, _
                 ByVal lpDirectory As String, _
                 ByVal lpResult As String) As Long

    Declare Function GetTempPath Lib "kernel32.dll" _
                 Alias "GetTempPathA" ( _
                 ByVal nBufferLength As Long, _
                 ByVal lpBuffer As String) As Long


    Const cMAX_PATH = 260



Public Shared Function GetPathFileExtention(ByVal extension As String) As String
        Try
            Dim tempFileName As String = Path.ChangeExtension(Path.GetTempFileName(), extension)
            Dim tempPathFile As String = Path.Combine("temp", tempFileName)

            File.Create(tempFileName)

            Dim lpResult As String
            Dim lngRet As Long

            lpResult = Space(cMAX_PATH)
            lngRet = FindExecutableA(tempFileName.ToString, tempPathFile.ToString, lpResult)

            If lngRet > 32 Then
                GetPathFileExtention = lpResult
                Return lpResult.ToString()
            Else
                Return "No Application found"
            End If

        Catch ex As Exception
            Return "No Application found"
        End Try

End Function
Abgelegt unter Datei, Extension, Applilcation.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!