File properties 5

[JackTheC]

When viewing the Explorer in Detailview (in XP) you can add several columns for more information about MP3 or JPG files. e.g. Bitspeed, Albumtitle, Cameramodel, Dimensions (don't know the exact propertynames in English version of XP). It must be possible to extract that information with VFP. Does anyone know how?

 

[pthalacker]

There is nothing native to VFP that will do this. I don't know how much the Windows API has been extended to support these newer file types and attributes, but finding a Windows API function to do this would be my first effort. I just looked at News2News and didn't see anything. You might try searching MSDN.

pamela

 

[Nigel Gomm]

I did this recently in PHP.

Here's a rough translation....

loShell = createobject("shell.application");
loDir = loShell.Namespace(lcDir);
lofile = loDir.parsename(lcFile);
lcComment = loDir.GetDetailsOf(lofile,14);

the index in getDetailsof() indicates the property you want... i found the list of properties and indexes somewhere on MSDN but i can't find it right now.

hth

nigel

 

[Mike Gagnon]

http://www.news2news.com/vfp/?function=-1&example=461

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.
ReFox XI (www.mcrgsoftware.com)

 

[Nigel Gomm]

here's that link i couldn't find earlier

http://www.microsoft.com/technet/scriptcenter/guide/sas_fil_lunl.mspx?mfr=true

 

[JackTheC]

Thanx guys,
I will follow nigelgomms tip and made something like this.
It does really work. Maybe someone else can use it too.

Dimension arrHeaders(35)
objShell=CreateObject("Shell.Application")
objFolder=objShell.Namespace(sys(5)+sys(2003))

* Array of possible file properties (35)
For i = 0 to 34
 arrHeaders(i+1) = objFolder.GetDetailsOf(objFolder.Items, i)
Next

* create object of an existing file
objFolderItem=objFolder.ParseName('pict_0001.jpg')
* print all 35 properties
For i = 0 to 34
 	? i ,arrHeaders(i+1), ": " , objFolder.GetDetailsOf(objFolderItem, i)
Next

* same with an mp3 file
objFolderItem=objFolder.ParseName('test2.mp3')
For i = 0 to 34
 	? i ,arrHeaders(i+1), ": " , objFolder.GetDetailsOf(objFolderItem, i)
Next

 

[tsh73]

JackTheC, very useful piece of code. Have a star.