能获取作者备注时间标题信息,版权信息不知道能不能获取,楼主试试
我正在找修改作者备注时间标题的方法 如果楼主找到了麻烦留个贴告知一下下
Option Explicit
'引用Microsoft Shell Controls And Automation
Private Sub Command1_Click()
MsgBox getfilePTY("f:\music\u\七里香.wma")
End Sub
Function getfilePTY(strFl As String) As String
Dim fso 'As FileSystemObject
Dim fl 'As Scripting.File
Dim pth As String
Dim flname As String
Dim shl As Shell32.Shell
Dim shfd As Shell32.Folder
Dim s As String
Dim i
'Set fso = New FileSystemObject
Set fso = CreateObject("scripting.filesystemobject")
Set fl = fso.GetFile(strFl)
pth = fl.ParentFolder.Path
flname = fl.Name
Set shl = New Shell
Set shfd = shl.NameSpace(pth)
For i = 0 To 33
If shfd.GetDetailsOf(0, i) <> "" Or shfd.GetDetailsOf(shfd.Items.Item(flname), i) <> "" Then
s = s & shfd.GetDetailsOf(0, i) & ": " & shfd.GetDetailsOf(shfd.Items.Item(flname), i) & Chr(10)
End If
Next i
getfilePTY = s
End Function
[[italic] 本帖最后由 烟雨袅袅 于 2007-12-20 03:24 编辑 [/italic]]