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

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

有代码最好

1个回答

可以用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

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

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问