Windows Experts Community

Programatically Read file attributes

rated by 0 users
This post has 17 Replies |
3 Followers

Posted by

on Mon, Dec 6 2004 6:24 PM

Joined on Fri, Aug 13 2004 | 1,326 Posts

I converted a bunch of dvr-ms files to wmvs using dcut (great tool btw), and I wanted to rename them all to Subtitle.wmv using vbscript (or one of the dotnet languages). But I can't figure out how to read that off of the file, does anyone know offhand how to do this?

@babgvant

Posted by

Kristian

on Mon, Dec 6 2004 11:42 PM

Joined on Mon, Oct 13 2003 | 163 Posts

system.IO.File.Move(srcFilename,destFilename)

But what has that to do with file attributes?

Using MyDVDs? http://www.e-Home.no/metaservices/

Posted by

babgVant

on Tue, Dec 7 2004 7:31 AM

Joined on Fri, Aug 13 2004 | 1,326 Posts

It's not the renaming part I'm having trouble with, it's reading the subtitle from the file's attributes.

For eg. I have a file in the standard dvr-ms naming format

channel_time.dvr-ms, i converted it with dcut, so now it's channel_time.wmv; I want it to be named Title - Subtitle.wmv using the file's attributes (like dvr2wmv will do). I just can't figure out how to get the title and subtitle from the file.

@babgvant

Posted by

Kristian

on Tue, Dec 7 2004 8:08 AM

Joined on Mon, Oct 13 2003 | 163 Posts

So what you need is a way to get the tag from the wmv file ?

(in that case I think I can help you)

Using MyDVDs? http://www.e-Home.no/metaservices/

Posted by

babgVant

on Tue, Dec 7 2004 10:50 AM

Joined on Fri, Aug 13 2004 | 1,326 Posts

yep, well dvr-ms and wmv files...

@babgvant

Posted by

Aaron Ward

on Tue, Dec 14 2004 12:44 PM

Joined on Tue, Oct 14 2003 | 106 Posts

I have some code you can use. send me an email to: aaron(at)wardfamily(dot)cc

Thanks!

Thanks,

"Minds are like parachutes. They work best when open."

Posted by

babgVant

on Tue, Dec 14 2004 1:25 PM

Joined on Fri, Aug 13 2004 | 1,326 Posts

thx, will do.

@babgvant

Posted by

Turge

on Mon, Dec 20 2004 4:31 PM

Joined on Sun, Oct 17 2004 | 334 Posts

Since corresponding by email doesn't do any good to anyone else, I will post some sample code to retrieve a file's extended properties:

Dim arrHeaders(35)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Folder")
For i = 0 to 34
    arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next
For Each strFileName in objFolder.Items
    For i = 0 to 34
        Wscript.Echo i & vbtab & arrHeaders(i) _
            & ": " & objFolder.GetDetailsOf(strFileName, i)
    Next
Next

The example enumerates every file in a folder and displays each of the 35 properties available:

0     Name
1 Size
2 Type
3 Date Modified
4 Date Created
5 Date Accessed
6 Attributes
7 Status
8 Owner
9 Author
10 Title
11 Subject
12 Category
13 Pages
14 Comments
15 Copyright
16 Artist
17 Album Title
18 Year
19 Track Number
20 Genre
21 Duration
22 Bit Rate
23 Protected
24 Camera Model
25 Date Picture Taken
26 Dimensions
27 Not used
28 Not used
29 Not used
30 Company
31 Description
32 File Version
33 Product Name
34 Product Version
If anyone needs help understanding this, let me know,
Steve

Posted by

babgVant

on Tue, Dec 21 2004 7:05 AM

Joined on Fri, Aug 13 2004 | 1,326 Posts

Excellent. Thanks, I emailed Aarron and hadn't heard anything back, so I'd pretty much given up. Thanks.

@babgvant

Posted by

babgVant

on Wed, Dec 22 2004 9:15 AM

Joined on Fri, Aug 13 2004 | 1,326 Posts

Figured I'd post up the result...

Thanks again.

Const folderName = "C:\Folder\"

Dim objShell, objFolder, strFileName, fso, f, title, subtitle

Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(folderName)

For Each strFileName in objFolder.Items
title = objFolder.GetDetailsOf(strFileName, 10)
subtitle = objFolder.GetDetailsOf(strFileName, 17)
Set f = fso.GetFile(folderName & strFileName)
f.name = title & " - " & subtitle & right(f.name, len(f.name) - InStrRev(f.name, ".") + 1)
set f = nothing
Next

Set objFolder = nothing
Set objShell = nothing
Set fso = nothing

@babgvant

Posted by

babgVant

on Sun, Dec 26 2004 6:21 AM

Joined on Fri, Aug 13 2004 | 1,326 Posts

change 17 to 29 for dvr-ms files

@babgvant

Posted by

babgVant

on Wed, Jan 5 2005 7:38 PM

Joined on Fri, Aug 13 2004 | 1,326 Posts

Does anyone know how to do this same thing in dot.net?

@babgvant

Posted by

babgVant

on Fri, Jan 7 2005 1:44 PM

Joined on Fri, Aug 13 2004 | 1,326 Posts

nm, figured it out...

add a reference to ...\system32\shell32.dll and

Dim s As New Shell32.Shell
Dim f As Shell32.Folder = s.NameSpace("C:\Folder")
Dim i As Shell32.FolderItem = f.P****Name("file.ext")

If (Not i Is Nothing) Then
MessageBox.Show(f.GetDetailsOf(i, 17))
End If

i = Nothing
f = Nothing
s = Nothing

will work...

@babgvant

Posted by

Turge

on Fri, Jan 7 2005 3:58 PM

Joined on Sun, Oct 17 2004 | 334 Posts

Nice work babgVant.. looked high and low for your solution!

So, for reference:

10 - Name of show
29 - Episode title
30 - Program description

Posted by

babgVant

on Fri, Jan 7 2005 8:20 PM

Joined on Fri, Aug 13 2004 | 1,326 Posts

weird, P****Name should be P****Name

@babgvant

Windows Entertainment and Connected Home

Programatically Read file attributes