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

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