Öffnen mit... - Dialog aufrufen Sie möchten eine Datei oder ein Dokument anzeigen / starten, wobei der Anwender das Programm, mit dem die Datei angezeigt werden soll, frei wählen können soll?
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  13.909
www.tools4vb.de	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sie kennen das sicherlich: Beim Doppelklick auf ein Dokument im Windows Explorer wird autom. die für den Dokumenttyp verknüpfte Anwendung gestartet. Ist keine Anwendung für den Dokumenttyp hinterlegt, wird der Windows-Standard-Dialog "Öffnen mit..." angezeigt.

Hin und wieder ist es auch sinnvoll, diesen "Öffnen mit..." Dialog direkt aufzurufen, so dass der Anwender die Anwendung selbst auswählen kann, mit der die Datei geöffnet werden soll.

Und genau das erledigt nachfolgende Funktion ShowFileOpenWidthDlg.

''' <summary>
''' Öffnen mit Dialog anzeigen
''' </summary>
''' <param name="Filename">Datei, die geöffnet werden soll</param>
Public Sub ShowFileOpenWithDlg(ByVal Filename As String)
  Dim startInfo As New ProcessStartInfo
  With startInfo
    .FileName = "RUNDLL32.EXE"
    .Arguments = "shell32.dll,OpenAs_RunDLL " & Filename
  End With
  Try
    ' Öffnen mit Dialog starten
    Process.Start(startInfo)
  Catch ex As Exception
    MsgBox("Fehler!" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
  End Try
End Sub