View Single Post
Old 28th March 2007, 08:47   #2
shaneh
Major Dude
 
Join Date: Jan 2004
Location: Brisbane, Australia
Posts: 1,193
Activewinamp can do this but would require a bit of work. The easiest option is to write to a .csv file, which can be opened with excel, but you can write to a .xls file quite easily too using activex and getobject("excel.application") etc.

eg make a file called 'playlist_Write files to csv.vbs' with the contents:

-----------
Const ForReading = 1, ForWriting = 2, ForAppending = 8
filename = "c:\test.csv"
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(filename, ForWriting, True)
for each song in playlist
MyFile.WriteLine(song.artist + "," + song.album + "," + song.title)
next
MyFile.Close
quit
-----------

The problem would be commas, you would have to escape them out etc. Using excel might be easier as you can write directly into the cells.

Otherwise you can write a html file fairly easily: eg
http://www.myplugins.info/activewina..._html_playlist

You can change the code to write out the contents of the media library with:

for each song in medialibrary
....
next
shaneh is offline   Reply With Quote