That should be possible, if you wanna give it a try.
Here's what i've done so far.
Requires CDDBControl.CddbID3Tag
and
Microsoft XML Core Services
http://www.microsoft.com/downloads/details.aspx?familyid=3144b72b-b4f2-46da-b4b6-c5d7485f2b42&displaylang=en
The vbscript that scans and read the music directory.
'***********************************
'BEGIN
'***********************************
Option Explicit
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso,id3, WshShell, cptTot, objArgs, arrFiles(), sExtToGet
Dim driveLetter, pathToScan, fold, nTime, sAppName
Dim IExec, playlistPath
Set fso = CreateObject("Scripting.FileSystemObject")
Set id3 = CreateObject("CDDBControl.CddbID3Tag")
Set WshShell = WScript.CreateObject("WScript.Shell")
sAppName = "Mp3Playlister - Recursive playlist generator"
'-- lowercase file extension to search for
sExtToGet = "mp3"
'***********************************
'Path to Scan
'***********************************
pathToScan = "D:\MP 3\"
'***********************************
nTime = Timer
'-- start scanning
Call startScanning()
'-- clean
Set fso = nothing
Set WshShell = nothing
Set id3 = nothing
'***********************************
'END
'***********************************
'***********************************
'FUNCTIONS:
'***********************************
Sub startScanning()
Dim i, cpt, playlistPath
cptTot = 0
If fso.FolderExists(pathToScan) Then
ReDim arrFiles(0)
Set fold = fso.Getfolder(pathToScan)
playlistPath = fold.path &"\"& fold.Name & ".xml"
'-- recurse folder
Call DoIt(fold)
Else
WshShell.Popup "Folder """& pathToScan &""" does not exist. ", 5, sAppName, 48
Wscript.quit
End If
'-- save playlist if more than 0 entry in it
If (UBound(arrFiles) > 0) Then
Call createAndSavePlaylist(arrFiles, playlistPath)
End If
End Sub
'***********************************
Sub AddFiles(fold)
'-- process all mp3 files in the fold folder
Dim strExt, mpFiles, strName, foldName, foldPath, f, Artist, Album, Genre, id3Title, File
foldPath = fold.Path
Set mpfiles = fold.Files
For each f in mpfiles
strName = f.Name
strExt = LCase(fso.GetExtensionName(strName))
If strExt = sExtToGet Then
id3.LoadFromFile foldPath &"\"& UCase(Left(strName, 1)) & Mid(strName,2,Len(strName)),False
Artist = Replace (id3.LeadArtist,Chr(38),"&")
If Artist = "" Then
Artist = "unknown"
End If
Album = Replace (id3.Album,Chr(38),"&")
If Album = "" Then
Album = "unknown"
End If
id3Title = Replace (id3.Title,Chr(38),"&")
If id3Title = "" Then
id3Title = "unknown"
End If
Genre = Replace (id3.Genre,Chr(38),"&")
If Genre = "" Then
Genre = "unknown"
End If
File = Replace (foldPath & "\" & UCase(Left(strName, 1)) & Mid(strName,2,Len(strName)),Chr(38),"&")
arrFiles(cptTot) = ("<cd><artist>" & Artist & "</artist><album>" & Album & "</album><title>" & Id3title & "</title><genre>" & Genre & "</genre><file>" & File & "</file></cd>")
ReDim Preserve arrFiles(UBound(arrFiles)+1)
cptTot = cptTot + 1 '-- global counter for processed files
End If
Next
End Sub
'***********************************
Sub createAndSavePlaylist(arrFiles, playlistPath)
Dim txt, txtFile
If Not fso.FileExists(playlistPath) Then
Set txtFile = fso.CreateTextFile(playlistPath,true,false) 'ASCII !!
End If
Set txtFile = fso.GetFile(playlistPath)
Set txt = txtFile.OpenAsTextStream(ForWriting, 0) 'ForWriting , 0 for ASCII (-1 for Unicode)
txt.write("<?xml version='1.0' encoding='ISO-8859-1'?><catalog>")
txt.write Join(arrFiles,vbCrLf)
txt.write("</catalog>")
txt.close
Set txtFile = nothing
End Sub
'***********************************
Sub DoIt(fold)
'-- recursive scan
Dim sfold, sfoo
Call AddFiles(fold) 'process files in current folder
Set sfold = fold.subfolders
for each sfoo in sfold 'process files in subfolders
Call DoIt(sfoo)
Next
End Sub
'***********************************
'Show created file in IE
'***********************************
Set IExec = CreateObject("InternetExplorer.Application")
playlistPath = fold.path &"\"& fold.Name & ".xml"
IExec.navigate playlistPath
IExec.Visible = 1
That prints a xml file.
Then process the xml file and have a sorted html output.
At the moment i link only to the file source to play the files.
Adding more search options is easy, adding a textinput for a string
search a little bit harder...
Output Htm Page based on the DataIsland.htm sample.
Link to the created xml file.
<HTML>
<HEAD>
<TITLE>Untitled</TITLE>
<STYLE>
.catalog_genre_head {background-color:darkGreen;font-size:24pt;color:white;font-family:Impact;}
.catalog_head {background-color:green;font-size:18pt;color:white;font-family:Impact;}
.catalog_row0 {background-color:lightGreen;}
.catalog_row1 {background-color:white;}
.catalog_row_end {background-color:darkGreen;}
</STYLE>
</HEAD>
<BODY>
<H1>Music Catalog</H1>
Select a genre to see all songs in that genre:</P>
<DIV id="catalog_table"></DIV>
<xml id="music_catalog" src="MP 3.xml">
</xml>
<xml id="catalog_filter">
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:msxsl="urn:schemas-microsoft-com:xslt"
version="1.0">
<xsl:output method="xml" omit-xml-declaration="yes"/>
<xsl:param name="selected_genre" select="'all'"/>
<xsl:template match="/">
<div>
<form method="post" action="catalog.asp">
Genre
<select name="genre" value="{$selected_genre}" onchange="showGenre(this.value)">
<option value="all"><xsl:if test="$selected_genre='all'"><xsl:attribute name="selected">Selected</xsl:attribute></xsl:if>All</option>
<option value="Rock"><xsl:if test="$selected_genre='Rock'"><xsl:attribute name="selected">Selected</xsl:attribute></xsl:if>Rock</option>
<option value="Punk Rock"><xsl:if test="$selected_genre='Punk Rock'"><xsl:attribute name="selected">Selected</xsl:attribute></xsl:if>Punk Rock</option>
<option value="Pop"><xsl:if test="$selected_genre='Pop'"><xsl:attribute name="selected">Selected</xsl:attribute></xsl:if>Pop</option>
<option value="Heavy Metal"><xsl:if test="$selected_genre='Heavy Metal'"><xsl:attribute name="selected">Selected</xsl:attribute></xsl:if>Heavy Metal</option>
<option value="Comedy"><xsl:if test="$selected_genre='Comedy'"><xsl:attribute name="selected">Selected</xsl:attribute></xsl:if>Comedy</option>
</select>
</form>
<xsl:apply-templates select="catalog"/>
</div>
</xsl:template>
<xsl:template match="catalog">
<table width="750" class="catalog_table">
<xsl:apply-templates select="cd[($selected_genre='all') or ($selected_genre=./genre)]">
<xsl:sort select="artist"/>
</xsl:apply-templates>
</table>
</xsl:template>
<xsl:template match="cd">
<xsl:if test="position()=1">
<tr class="catalog_genre_head"><td colspan="5">
<xsl:choose>
<xsl:when test="$selected_genre='all'">
All Genres
</xsl:when>
<xsl:otherwise>
Genre: <xsl:value-of select="genre"/>
</xsl:otherwise>
</xsl:choose>
</td></tr>
<tr class="catalog_head">
<td>#</td>
<td>Artist</td>
<td>Album</td>
<td>Title</td>
<xsl:if test="$selected_genre='all'">
<td>Genre</td>
</xsl:if>
</tr>
</xsl:if>
<tr class="catalog_row{position() mod 2}">
<td><xsl:value-of select="position()"/></td>
<td class="catalog_cell"><xsl:value-of select="artist"/></td>
<td class="catalog_cell"><xsl:value-of select="album"/></td>
<td class="catalog_cell"><xsl:value-of select="title"/> ({file})</td>
<xsl:if test="$selected_genre='all'">
<td class="catalog_cell"><xsl:value-of select="genre"/></td>
</xsl:if>
</tr>
<xsl:if test="position()=last()">
<tr class="catalog_row_end"><td colspan="4"> </td></tr>
</xsl:if>
</xsl:template>
</xsl:stylesheet>
</xml>
<SCRIPT language="JavaScript">
function loadSource(sourceObj){
var xmlDoc=new ActiveXObject("MSXML2.FreeThreadedDOMDocument.4.0");
xmlDoc.async=false;
xmlDoc.load(sourceObj.XMLDocument);
return xmlDoc;
}
var table_proc=null;
function getProcessor(transformObj){
if (table_proc==null){
var xslDoc=new ActiveXObject("MSXML2.FreeThreadedDOMDocument.4.0");
var xslTemplate=new ActiveXObject("MSXML2.XSLTemplate.4.0");
xslDoc.async=false;
xslDoc.load(transformObj.XMLDocument);
xslTemplate.stylesheet=xslDoc;
xslProcessor=xslTemplate.createProcessor();
table_proc=xslProcessor;
}
else {
xslProcessor=table_proc;
}
return xslProcessor;
}
function transformData(srcDoc,processor){
var resultDoc=new ActiveXObject("MSXML.DOMDocument");
processor.input=srcDoc;
processor.output=resultDoc;
processor.transform();
return resultDoc;
}
function showGenre(genre){
var srcDoc=loadSource(music_catalog);
var processor=getProcessor(catalog_filter);
processor.addParameter("selected_genre",genre);
var rsltDoc=transformData(srcDoc,processor);
catalog_table.innerHTML=rsltDoc.xml
}
showGenre("all");
</SCRIPT>
</BODY>
</HTML>