Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Can't retrieve some extended file properties

9 views
Skip to first unread message

John Smith

unread,
Dec 31, 2013, 1:52:20 PM12/31/13
to
I've been trying to create a log file with extended properties for some
recorded TV shows in WTV format. I'm finding that there are a few details I
can see by manually opening file properties from within Windows Explorer,
but can't seem to be able to retrieve them programmatically. The specific
property I'd like to include in the log file is "TV credits". I've searched
all index values up to 999, but they seem to end at around 280. Would
anyone happen to know how I can retrieve this property? I've attached
sample source code below. Thanks.

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\Recorded TV\")
Set objFolderItem = objFolder.ParseName("TV_show.wtv")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\Recorded TV\TV_show_details.txt",
True, True)

For i = 0 to 999
strHeader = objFolder.GetDetailsOf(objFolder.Items, i)
strValue = objFolder.GetDetailsOf(objFolderItem, i)
If strValue <> Empty Then
objFile.WriteLine "(" & i & ")" & vbTab & strHeader & ":" & vbTab &
strValue
End If
Next

MsgBox "Done."

ralph

unread,
Dec 31, 2013, 3:32:14 PM12/31/13
to
On Tue, 31 Dec 2013 10:52:20 -0800, "John Smith" <nu...@noemail.com>
wrote:
Have done very little of this, but this site seems to have a few
buried nuggets of info. Note the use of For Each, the variance of of
platforms, and the hint about getting the full "whitespace".

hth
-ralph
0 new messages