Comment ouvrir un fichier HTML avec une application par défaut en utilisant VBScript?

Question

J'ai un fichier HTML C:\Program Files\my_html_files\file.html. Comment puis-je ouvrir ce fichier en utilisant VBScript? (. Par « ouvrir » Je veux dire l'ouvrir avec l'application par défaut, comme si elle était double cliqué dans l'Explorateur)

Answer 1

Voulez-vous dire ouvrir le fichier dans Internet Explorer?

Dim objIE 
'' Create an IE object 
Set objIE = CreateObject("InternetExplorer.Application") 
'' Open file 
objIE.Navigate "C:\Program Files\my_html_files\file.html" 

Answer 2

Vous pouvez utiliser le File System Object comme ceci:

Set FSO=CreateObject("Scripting.FileSystemObject") 
Set iFile = FSO.OpenTextFile ("C:\Program Files\my_html_files\file.html") 
Data = iFile.ReadAll 
MsgBox(Data) 
iFile.Close 

Answer 3

Le code VBScript suivant fait l'équivalent d'un double-clic sur le file.html et ayant la commande d'ouverture par défaut se produire pour ce fichier:

Dim wshShell 
Set wshShell = CreateObject("WScript.Shell") 
wshShell.Run """C:\Program Files\my_html_files\file.html""" 

Si vous voulez vraiment tricksy vous pouvez omettre la déclaration de la variable et l'inscrire dans une ligne de code:

CreateObject("WScript.Shell").Run """C:\Program Files\my_html_files\file.html""" 

NB Les chaînes peuvent nécessiter une interrogation pour gérer les chemins contenant des espaces. Cela peut être fait en utilisant la suggestion Chr(34) par @aland ou comme je l'ai fait dans mes exemples de code.

Answer 4

Vous pouvez utiliser cette

CreateObject("WScript.Shell").Run Chr(34) & "C:\Program Files\my_html_files\file.html" & Chr(34)