MetaTags Property Example

This example iterates through the META tags collection and concatenates the file names and META tag names into a string called myReturnInfo.

Private Sub GetMetaTagInfo_Click()
Dim myWeb As Web
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