打开 WebFile 对象。
expression.Open
expression 必选。返回上述对象之一的表达式。
返回 WebEx 对象。
expression.Open(szWebUrl, UserName, Password, WebOpenFlags)
expression 必选。返回上述对象之一的表达式。
szWebUrl 必选,String 类型。站点的基本 URL,例如“C:\My Webs”。它可以是任何绝对 URL,例如“http://web Server”,或“file://file system”(对于基于磁盘的站点)。
UserName 可选,String 类型。用户的登录名。
Password 可选,String 类型。指派的字符串,用来验证对指定站点的访问。
WebOpenFlags 可选,FpWebOpenFlags 类型。
FpWebOpenFlags 可以是下列这些 FpWebOpenFlags 常数之一: |
fpOpenInWindow 默认值 |
fpOpenNoWindow |
本示例会打开 Rogue Cellars 站点和 Oktoberfest Sale 文件,然后执行以下任务:
mySaleProp
来代替 insertAdjacentText 方法中的文本参数注意 若要运行本示例,必须有一个名为“C:\My Documents\My Webs\Rogue Cellars”(对于在 Microsoft Windows 上运行的服务器)或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars”(对于在 Windows NT 上运行的服务器)的站点。或者,您也可以用其他站点 URL 和其他文件来代替。
Private Sub AddSaleText()
Dim objWeb As Web
Dim objFile As WebFile
Dim strSaleProp As String
Dim strSaleText As String
strSaleText = "Vintage Wines for Oktoberfest Sale!!!"
Set objWeb = Webs.Open("C:\My Documents\My Webs\Rogue Cellars")
Set objFile = ActiveWeb.RootFolder.Files("Sale.htm")
objFile.Properties.Add "SaleText", mySaleText
strSaleProp = objFile.Properties("SaleText")
objFile.Open
ActiveDocument.body.insertAdjacentText "BeforeEnd", strSaleProp
WebWindows.Close
End Sub