Help with: File LISTER and LUNCHER v3

if brazen weep see this treath please look at it

Wednesday, May 4, 2011 by Diablo1st | Discussion: Object Desktop

Hello all, i have downloaded the "File LISTER and LUNCHER v3" gadget made by brazen weep, i was going to make a player that scroll file under all device installed in my PC, so i needed this really bad [i thanks him very much if this item was not made then i had to abandon my project]

Anyway this is my question:
Is possibile to take more information from file? In example for music file take the rating, artist, etc but with NO PLAY [i mean with also player closed just file infos]. I attak an image for explain better:

 

 

I really need it but i can't figure out how to get these infos 

Thanks for who will answer!

 

Ps: This is what i did thill now with photoshop, now i need to make this gadget my base will be that fantastic gadget made by brezen weep

1 Reply 3 Referrals
Diablo1st
Reply #1 Thursday, May 5, 2011 5:26 AM

i have find this: http://technet.microsoft.com/en-us/library/ee176615.aspx

In the link there is "objFolder.GetDetailsOf(strFileName, ID_EXTENDED_PROPERTY)", and ID_EXTENDED_PROPERT is a number between 0 [name of file]  and  34 [Product version] so for example for retriving the Title of the song [not name of file but Title of song] it says to use: objFolder.GetDetailsOf(strFileName, 10)

But I CAN'T MAKE IT WORK ..i'm getting crazy about it i post here what i have in the script hope some one will try help..

Code: vbscript
  1. Set objFile = objFSO.GetFile(sMyPath & strFN)
  2.             If err.number <> 0 Then
  3.                 Set objFile = Nothing
  4.                 blnIsBusy = False
  5.                 Exit Sub
  6.             End If
  7.         ' compile file information:
  8.         FI = objFile.Name
  9.         FI = FI & vbnewline & objFile.Type
  10.         FI = FI & vbnewline & "Size is " & SetBytes(objFile.Size)
  11.         FI = FI & vbnewline & "TITLE " & objFile.GetDetailsOf(objFile., 21)*
  12.         FI = FI & vbnewline & "Last accessed " & objFile.DateLastAccessed
  13.         FI = FI & vbnewline & "Last modified " & objFile.DateLastModified

 

* i've also tryed objFolder.GetDetailsOf(objFile., 21) and sMyPath.GetDetailsOf(strFN., 21) but both also don't work ...need some help here 


Please login to comment and/or vote for this skin.

Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:

  • Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
  • Access to a great community, with a massive database of many, many areas of interest.
  • Access to contests & subscription offers like exclusive emails.
  • It's simple, and FREE!
Login

Home | About | Privacy | Upload Guidelines | Terms of Service | Help
Copyright © Stardock Corporation. All Rights Reserved.


web-wc01