batch m3u’s.. i don’t know this stuff

if any one cares... heres the finsihed script
------------------------------------------
<%
Dim baseurl,startdirectory,enddirectory,fs,fo,fe,tfile,x,songnam e
startdirectory = Request.Form("rootdir")&"\"&Request.Form("startdirec tory")&"\"
enddirectory = Request.Form("rootdir")&"\"&Request.Form("enddirecto ry")&"\"
baseurl = Request.Form("baseurl")&"/"

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=fs.GetFolder(startdirectory)
Set fe=fs.GetFolder(enddirectory)
%>
<% for each x in fo.files %>
<%
songname = fs.GetBaseName(startdirectory&x.Name)
Set tfile=fe.CreateTextFile(songname&".m3u",true)
tfile.WriteLine(baseurl&songname&".mp3")
%>
<% next %>
<%
tfile.Close
set tfile=nothing
set fo=nothing
set fs=nothing
%>
--------------------------------------
and the form
--------------------------------------
<form name="create" method="post" action="">
    <%
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set fo=fs.GetFolder(Server.MapPath("\BatchM3u\"))
    %>
    <input name="rootdir" type="text" size="50" value="<%Response.Write(fo.ParentFolder)%>">
    Root Directory
    <%
    set fo=nothing
    set fs=nothing
    %>
  <p>
    <input name="startdirectory" type="text" size="50">
    Folder of mp3's </p>
  <p>
    <input name="enddirectory" type="text" size="50">
    Folder for m3u's</p>
  <p>
    <input name="baseurl" type="text" size="50">
    Base URL to mp3's folder
  <p>
    <input name="Submit" type="submit" value=":::::::::: GO ::::::::::">
</form>
---------------------------------------

for creating an m3u for every mp3 in a folder