2010-08-09 136 views

回答

3

你的意思是打开文件在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" 
0

可以使用File System Object这样的:

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

它不好 我需要在file.html 的行动,双击你的脚本不能显示真正的file.html – lidia 2010-08-09 08:18:47

6

下面的VBScript代码不会对file.html双击并具有默认打开的命令会出现该文件的等效:

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

如果你想获得真正调皮,你可以省略变量声明并将其写入一行代码中:

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

NB字符串可能需要被引用来处理包含空格的路径。这可以使用@aland的Chr(34)建议或我在代码示例中所做的完成。

+1

你需要包裹Chr(34)的路径如果有空格,例如 wshShell.Run Chr(34)&“C:\ Program Files \ my_html_files \ file.html”&Chr(34) – aland 2013-08-07 19:58:49

1

您可以使用此

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

+0

有一个&丢失。 *两位* upvoter应该感到羞耻。 – 2016-10-11 12:09:28

相关问题