Rubrik: Dateisystem · Dateien - allgemein | VB-Versionen: VB2005, VB2008 | 21.11.08 |
Ö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: | Views: 13.680 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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