Mal wieder eine VB Frage.
Wie kann ich eine html (und andere) Datei unter VB ausführen, daß sie in dem jeweiligen Standardbrowser geöffnet wird, die Datei also entsprechend dem Doppelklick im Explorer behandeln.
Besten Dank im Voraus,
Valentin
Hallo!
Mal wieder eine VB Frage.
Wie kann ich eine html (und andere) Datei
unter VB ausführen, daß sie in dem
jeweiligen Standardbrowser geöffnet wird,
die Datei also entsprechend dem
Doppelklick im Explorer behandeln.
URL = False
'Inhalt der angeklickten Zelle
strDocument = dgrErgebnis.Text
’ Überprüfen, ob es sich um eine HTML-Datei handelt.
If ((InStr(1, strDocument, „.htm“, vbTextCompare) > 0) Or (InStr(1, strDocument, „.html“, vbTextCompare) > 0)) Then URL = True
End If
If (URL = True) Then
Dim m_IE As InternetExplorer
Set m_IE = New InternetExplorer
m_IE.Visible = True
m_IE.Navigate strDocument
End If
Leider funktioniert das nur mit dem IE, typisch M$ eben. In meinem Beispiel werden auch HTML-Dateien, die auf der Festplatte liegen geöffnet, natürlich muß vorher sichergestellt werden, daß strDocument den Pfad zur Datei enthält.
Gruesse, Tanja
Hallo Valentin,
also bevor Du Dich auch noch über „M$“ beschwerst… Es geht so:
Public Function DokumentOeffnen(strDatei As String) As Boolean
'Öffnet ein übergebenes Dokument mit der imSystem zugeordneten Anwendung
On Error GoTo Fehler_DokumentOeffnen
Dim strAufruf As String
strAufruf = "rundll32.exe url.dll,FileProtocolHandler " + strDatei
Shell strAufruf, vbNormalFocus
DokumentOeffnen = True
Exit Function
Fehler_DokumentOeffnen:
DokumentOeffnen = False
End Function
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]