FrontPage VBA教程:Files属性

此主题中的一些内容不适用于某些语言。

返回WebFiles集合中的项目。只读,Object 类型。

注释

Files属性是指向 WebFiles集合的指针。若要访问该集合,请声明 WebFiles 类型的变量,如下述语句所示:Dim myFiles As WebFiles,然后将变量myFiles 设置为Web.RootFolder.Files

VBA示例

本示例获取文件的所有属性,并且将 META 标记连成一个字符串,用管道分隔符(“|”)分隔其中的数据。

注意  本示例所示的 PropertyKeys 应用于用“单页站点向导”创建的站点。其他模板可能使用其他 PropertyKeys。


Private Sub GetFileProperties()
    Dim myFiles As WebFiles
    Dim myFile As WebFile
    Dim myAuthor As String
    Dim myModifiedBy As String
    Dim myTimeCreated As String
    Dim myTimeLastModified As String
    Dim myFileSize As String
    Dim myTitle As String
    Dim myMetaTags As Variant
    Dim myMetaTag As Variant
    Dim myProgID As Variant
    Dim myGenerator As String
    Dim myTimeLastWritten As String
    Dim myProperties As Properties
    Dim myMetaTagList As String
    Set myFiles = ActiveWeb.RootFolder.Files
    For Each myFile In myFiles
        Set myProperties = myFile.Properties
        myAuthor = myAuthor & myProperties("vti_author")
        myModifiedBy = myModifiedBy & _
            myProperties("vti_modifiedby) & "|"
        myTimeCreated = myTimeCreated & _
            myProperties("vti_timecreated") & "|"
        myTimeLastModified = myTimeLastModified & _
            myProperties("vti_timelastmodified") & "|"
        myFileSize = myFileSize & _
            myProperties("vti_FileSize) & "|"
        myTitle = myTitle & myProperties("vti_title") & "|"
        myProgID = myProgID & myProperties("vti_title") & "|"
        myGenerator = myGenerator & _
            myProperties("vti_generator") & "|"
        myTimeLastWritten = myTimeLastWritten & _
            myProperties("vti_timelastwritten") & "|"
        myMetaTags = myProperties("vti_metatags")
        For Each myMetaTag In myMetaTags
            myMetaTagList = myMetaTagList & myMetaTag & "|"
        Next
    Next
End Sub

上页:FrontPage VBA教程:fileModifiedDate属性 下页:FrontPage VBA教程:FileSaveForm属性

FrontPage VBA教程:Files属性

FrontPage VBA教程:FileSaveForm属性 FrontPage VBA教程:FileSearch属性
FrontPage VBA教程:fileSize属性 FrontPage VBA教程:fileUpdatedDate属性
FrontPage VBA教程:Folder属性 FrontPage VBA教程:Folders属性
FrontPage VBA教程:Format属性 FrontPage VBA教程:forms属性
FrontPage VBA教程:isDirty属性 FrontPage VBA教程:frames属性
FrontPage VBA教程:FrameWindow属性 FrontPage VBA教程:hasSharedBorders属性
FrontPage VBA教程:Home属性 FrontPage VBA教程:HomeNavigationNode属性
FrontPage VBA教程:HorizontalResolution属性 FrontPage VBA教程:htmlViewText属性
FrontPage VBA教程:ignoreSharedBorders属性 FrontPage VBA教程:images属性
FrontPage VBA教程:InNavBars属性 FrontPage VBA教程:IsDirty属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号