7,763
社区成员
发帖
与我相关
我的任务
分享
Function getfilePTY(strFl As String) As String
Dim fso, fl, pth As String, flname As String
Dim shl As Shell32.Shell
Dim shfd As Shell32.Folder
Dim s As String
Dim i
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 40
If shfd.GetDetailsOf(0, i) <> "" Or shfd.GetDetailsOf(shfd.Items.Item(flname), i) <> "" Then
s = s & i & " " & shfd.GetDetailsOf(0, i) & ": " & shfd.GetDetailsOf(shfd.Items.Item(flname), i) & Chr(10)
End If
Next i
getfilePTY = s
End Function
请教高手,这个备注信息该如何修改?