library listings

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Can anybody tell me if its possible to print out a list of my mp3 files in
media players library - I can save them as playlists and have tried opening
with notepad etc but this only lists the html codes and I would like to open
in excel or something similar where I can sort by the different columns
 
mikey said:
Can anybody tell me if its possible to print out a list of my mp3 files in
media players library - I can save them as playlists and have tried opening
with notepad etc but this only lists the html codes and I would like to open
in excel or something similar where I can sort by the different columns
Click to expand...

mikey,you can try microsoft works database or microsoft works spread sheet.
if you dont have it you can probaly find it on the windows microsoft update
site. i used microsoft works spreadsheet to categorize and keep track of all
my dvd movies
 
Place the following statements in a text file and name it "listdir.vbs".
Modify line 6 to contain the path to the file you wish the output to be in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.


Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my documents\Directory
List.txt"
Set ts = fso.OpenTextFile(FName, 2, vbtrue)
For x = 0 to 50
t1 = t1 & Fldr.GetDetailsOf(vbnull, x) & vbtab
Next
ts.write FLDR.self.path & vbcrlf
ts.Write T1 & vbcrlf
t1=""
For Each FldrItem in FldrItems
For x = 0 to 50
t1 = t1 & Fldr.GetDetailsOf(FldrItem, x) & vbtab
Next
t1=t1 & vbcrlf
ts.Write t1
t1=""
Next
msgbox FName & " has a tab delimited list of all properties"
 
Dennis - many thanks for your help. However when I place the directory of
music files over the script icon I get an error message as follows:-
" FName="c:\documents and settings\MIKE\desktop\Directory
List.txt" " (ignore my opening and closing quotes)
Line 6 char 57 unterminated string constant code 800A0409 microsoft VB
script compilation error

You will see I have altered line 6 to send the output to my desktop- the
rest was just copied and pasted from your message

Can you see where I may have gone wrong please?
Your help is very much appreciated - thanks - Mike
 
Maybe desktop should be Desktop (capital D). Other then that be sure that
the entire file name is on one line with quotes around it. The error message
seems to indicate that the final quote is missing.
 
In addition "copy and paste" of email can introduce strange characters that
can mess up a script. Be sure to delete all leading and trailing spaces on a
line (they might not be spaces). Join any lines that may have been split.
 
Dennis Thanks for your time
All reentered without front end spaces etc
I now have 22 lines of text - can you confirm this is correct please.
New error code is 80070002 line 3 char 1 system cannot find file
specified
 
Twenty-two lines is correct. I wish I could help you but I am not a VBS
expert. It works for me. You are dropping the folder to be listed on the
script icon, right? I don't know why you would now get an error on the third
line. I think that is the line that assigns the folder name to the one that
is dropped on it.
 
Dennis your efforts have been much appreciated but I am on the point of
giving up! Just a couple of questions though, the playlists that work for
you are they m3u or wpl? and in your own code as I received it there are some
spaces within the code and some without for example t1=t1 and also t1 = t1 ,
is this correct? although I have messed around and deleted most of the spaces
it doesnt seem to have made any difference - still cant get past line 3 and
yet when line 6 was split over two lines before I edited it , it got to line
6 so presumably it had read ths script past line 3 anyhow
Thanks anyhow
mike
 
Spaces within lines do not matter. The script has nothing to do with
playlists except for the fact that the same items are extracted. Most of the
items in a playlist are extracted from the directory. You must drop a
"folder" not a file on the icon. It does not matter what the folder
contains. The id3 tags are extracted. For photos they include date taken and
camera, for music artist and title, etc.

I have placed a "working" copy of the script at
http://www.dcsi.net/~denmarks/listdir.vbs. Just edit the output file name.
Drop "My Music" icon on the script icon.
 
Just when I thought I was going to give up I'm nearly there - my problem
seems to be I was dropping the file on to it instead of the folder
However when I go to drop the folder on (yours and my script!) the dreaded
norton antivirus comes up warning me of malicious script and reccomends
deleting it - Dennis do you have any comments please as I feel bad even
asking you about this
thanks
mike
 
Dennis I decided to trust you ( why else would you have gone to so much
trouble for me)
Am pleased to report that overriding the antivirus worked a treat even
though I have to open every individual folder within my music folder - that
is a small price to pay against having to type the lot into excel!!
If you ever come over here to the UK I owe you a large drink
cheers
mike
 
Back
Top