MetaTag 属性

返回指定 WebFile 对象的 MetaTags 集合。

示例

本示例在 META 标记集合中循环，并将文件名和 META 标记名称连成 myReturnInfo 字符串。

Private Sub GetMetaTagInfo_Click()
	Dim myWeb As WebEx
	Dim myFiles As WebFiles
	Dim myFile As WebFile
	Dim myMetaTags As MetaTags
	Dim myMetaTag As Variant
	Dim myFileName As String
	Dim myMetaTagName As String
	Dim myReturnInfo As String

	Set myWeb = ActiveWeb
	Set myFiles = myWeb.RootFolder.Files

	With myWeb
    		For Each myFile In myFiles
        		Set myMetaTags = myFile.MetaTags
        		For Each myMetaTag In myMetaTags
            			myFileName = myFile.Name
            			myMetaTagName = myMetaTag
            			myReturnInfo = myFileName & ": " _
                			& myMetaTagName
        		Next
    		Next
	End With
End Sub