Dokument mit bestimmter Anwendung öffnen Eine Funktion, mit der sich ein Dokument / Datei mit einer ganz bestimmten Anwendung öffnen lässt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  929
www.tools4vb.de	System:  Win2000, WinXP, Vista	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Immer wieder gefragt: wie kann ich eine Anwendung starten und dieser eine bestimmte Datei / Dokument übergeben, so dass die Anwendung die Datei bzw. das Dokument sofort öffnet und anzeigt.

Nachfolgend eine überladene Funktion, die genau das macht. Die erste Variante startet die übergebene Anwendung mit dem angegebenen Dokument als Parameter. Die zweite Funktion hingegen startet die im System mit dem Dokumenttyp verknüpfte Standard-Anwendung.

''' <summary>
''' Startet eine bestimmte Anwendung mit dem angegebenen Dokument
''' </summary>
''' <param name="ProgramFile">Dateiname der Anwendung</param>
''' <param name="DocumentFile">Dokument-Dateiname</param>
''' <returns>True, wenn die Anwendung gestartet werden konnte, andernfalls False.</returns>
Public Function OpenDocument(ByVal ProgramFile As String, _
  ByVal DocumentFile As String) As Boolean
 
  Try
    Dim pInfo As New Diagnostics.ProcessStartInfo
    With pInfo
      ' Anwendung, die gestartet werden soll
      .FileName = ProgramFile
 
      ' Parameter (Dokument)
      .Arguments = Chr(34) & DocumentFile & Chr(34)
 
      ' Anwendung starten
      .Verb = "open"
    End With
    Process.Start(pInfo)
    Return True
 
  Catch ex As Exception
    Return False
  End Try
End Function

''' <summary>
''' Öffnet das Dokument mit der im System festgelegten Standard-Anwendung
''' </summary>
''' <param name="DocumentFile">Dokument-Dateiname</param>
''' <returns>True, wenn das Dokument geöffnet werden konnte, andernfalls False.</returns>
Public Function OpenDocument(ByVal DocumentFile As String) As Boolean
  Try
    Dim pInfo As New Diagnostics.ProcessStartInfo
    With pInfo
      ' Dokument
      .FileName = DocumentFile
 
      ' verknüpfte Anwendung starten
      .Verb = "open"
    End With
    Process.Start(pInfo)
    Return True
 
  Catch ex As Exception
    Return False
  End Try
End Function