bloodmoon2000 2017-06-21 09:32 采纳率: 0%
浏览 1214
已采纳

vb6.0 如何获取excel的文档属性

求vb6.0如何获得Excel的文档属性,如创建人,创建时间等

有代码最好

  • 写回答

1条回答 默认 最新

  • 战在春秋 2017-06-21 10:22
    关注

    可以用Folder.GetDetailsOf函数获取文件的详细属性。

    下面这个例子获得C:\WINDOWS目录下clock.avi文件的文件类型

    Private Sub btnGetDetailsOf_Click()
        Dim objShell  As Shell
        Dim objFolder As Folder
    
        Set objShell = New Shell
        Set objFolder = objShell.NameSpace("C:\WINDOWS")
    
        If (Not objFolder Is Nothing) Then
            Dim objFolderItem As FolderItem
            Set objFolderItem = objFolder.ParseName("clock.avi")
    
            If (Not objFolderItem Is Nothing) Then
                Dim szItem As String
                szItem = objFolder.GetDetailsOf(objFolderItem, 2) //第二个参数为2,取得该文件的文件类型。
            End If
    
            Set objFolderItem = Nothing
        End If
    
        Set objFolder = Nothing
        Set objShell = Nothing
    End Sub
    

    第二个参数为9,取得文件的创建人。
    第二个参数为4,取得文件的创建时间。

    详细的参数说明可以查询:

    https://technet.microsoft.com/en-us/library/ee176615.aspx

    Folder.GetDetailsOf函数的用法可以参考:

    https://msdn.microsoft.com/en-us/library/windows/desktop/bb787870(v=vs.85).aspx

    用心回答每个问题,如果对您有帮助,请采纳答案好吗,谢谢!

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 在误装Windows server2019 后如何利用Windows.old恢复?
  • ¥20 代码实现状态连接包过滤防火墙的设计与实现
  • ¥15 vscode的红色箭头爆红和has no default export报错
  • ¥15 关于#sql#的问题:#情况描述 在用vs对项目进行调试时,出现找不到网络路径,然后查看SQL配置工具,发现SQL服务显示远程调用过程失败(相关搜索:防火墙)
  • ¥15 eNSP中基于默认路由及浮动路由的公司与分部互联和校园网综合项目
  • ¥15 主要进行描述泥浆在管路不同区段泥浆的密度不相同,泥浆的密度有高有低,此时管路的摩阻分布需要怎么计算,(标签-matlab)
  • ¥40 通过编制程序计算圆管内层流充分发展对流换热,参数如图5-4,以及公式5-16所示,要求用表5-6对程序计算准确性进行验证
  • ¥20 该学习哪个编程语言? AI会取代程序员吗?
  • ¥15 ensp如何拼通IP地址
  • ¥15 saber软件导入Ibis模型报错