Verknüpfte Anwendung finden Oftmals muß man/möchte man wissen, mit welcher Anwendung ein bestimmter Dokumenttyp geöffnet wird, d.h. welche Anwendung im System mit diesem Dateit...
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  18.456
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 18 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Gute Laune Sommer bei Tools & Components

Top Summer-Special - Sparen Sie teilweise bis zu 120,- EUR

Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!

zum Beispiel:

Developer CD nur 479,20 EUR statt 599,- EUR sevDTA 3.0 nur 224,30 EUR statt 299,- EUR

vb@rchiv   Vol.6 nur 20,00 EUR statt 24,95 EUR sevCoolbar 3.0 nur 55,20 EUR statt 69,- EUR

- Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

Oftmals muß man/möchte man wissen, mit welcher Anwendung ein bestimmter Dokumenttyp geöffnet wird, d.h. welche Anwendung im System mit diesem Dateityp verknüpft ist. Mit der nachfolgenden Funktion ist dies kein Problem. Sie übergeben der Funktion einfach das entsprechende Dokument als Parameter und die Funktion liefert dann den Dateinamen inkl. Pfad der verknüpften Anwendung zurück.

Voraussetzung, daß das alles korrekt funktioniert, ist allerdings, daß das Dokument auch tatsächlich existiert.

' Hier die benötigten API-Deklarationen
Declare Function FindExecutable Lib "shell32.dll" _
  Alias "FindExecutableA" ( _
  ByVal lpFile As String, _
  ByVal lpDirectory As String, _
  ByVal lpResult As String) As Long
 
' Diese Funktion ermittelt die Standard-Anwendung
' in Verbindung mit einem bestimmten Dateityp
' 
' Die Funktion gibt als Ergebnis den Dateinamen mit
' vollständigen Pfad zurück
' 
' Kann keine assoziierte Anwendung ermittelt werden
' wird ein Leerstring zurückgegeben
Public Function AnwendungFuerDatei(ByVal Datei As String) _
  As String
 
  ' Datei: Pfad+Dateinamen einer existierenden Datei
 
  Dim Pfad As String
 
  Pfad = Space$(256)
  FindExecutable Datei, vbNullString, Pfad
  If Pfad <> "" Then
    Pfad = Left$(Pfad, InStr(Pfad, vbNullChar) - 1)
  End If
  If UCase$(Pfad) = UCase$(Datei) Then Pfad = ""
 
  AnwendungFuerDatei = Pfad
End Function