<SCRIPT LANGUAGE="VBScript"><!-- Dim objFo,objF,objAF,objFfile,objPath,objExtFunction First() set objFo=CreateObject("Scripting.FileSystemObject") '对象 set objFfile=objFo.OpenTextFile("music.m3u",2,true) '打开文件 objPath=Trim(Inputbox("输入音乐文件的路径!","输入路径!")) If objPath="" Then objPath="c:My DocumentsMy Music" End If objFfile.WriteLine("#音乐文件列表--by天涯浪子") objFfile.WriteLine("#EXTM3U") Call file_list(objPath) '开始列表 objFfile.WriteLine("#END") Msgbox "成功生成音乐列表!" '列表成功 Window.location.Reload()End FunctionFunction file_list(DirName) set objFS=objFo.GetFolder(DirName) set objASD=objFS.SubFolders For Each OneDir in objASD strFdName=Trim(OneDir.Name) '下面所列的文件夹不生成在列表中（系统文件或者隐藏文件） If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then 'OneDirName=file_format(OneDir.Name) '对&进行转义 SDirName=DirName&""&OneDir.Name '下一个递归的地址 Call file_list(SDirName) '调用递归 End If '结束判断 Next set objSF=objFS.Files For Each OneFile in objSF '生成文件名 objExt=OneFile.Name '后缀名转换成小写字母 objExt=objFo.GetExtensionName(objExt) objExt=lcase(objExt) If objExt="mp3" or objExt="wav" or objExt="wav" Then objFfile.WriteLine(DirName&""&OneFile.Name) End If NextEnd Function--></SCRIPT><form> <input onclick="First()" type="button" value="第一次运行吗?点我吧!^_^" /></form><object id="MediaPlayer1" type="application/x-oleobject" height="68" standby="Loading Microsoft Windows Media Player components..." width="350" align="baseline" border="0" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"><param value="0" name="invokeURLs" /><param value="music.m3u" name="FileName" /><param value="1" name="ShowControls" /><param value="0" name="ShowPositionControls" /><param value="1" name="ShowAudioControls" /><param value="1" name="ShowTracker" /><param value="0" name="ShowDisplay" /><param value="1" name="ShowStatusBar" /><param value="0" name="AutoSize" /><param value="0" name="ShowGotoBar" /><param value="0" name="ShowCaptioning" /><param value="1" name="AutoStart" /><param value="0" name="PlayCount" /><param name="CanScan: value=" /><param value="0" name="AnimationAtStart" /><param value="0" name="TransparentAtStart" /><param value="0" name="AllowScan" /><param value="1" name="EnableContextMenu" /><param value="0" name="ClickToPlay" /><param value="datawindow" name="DefaultFrame" /></object>