<SCRIPTLANGUAGE="VBScript"><!--DimobjFo,objF,objAF,objFfile,objPath,objExtFunctionFirst()setobjFo=CreateObject("Scripting.FileSystemObject")'对象setobjFfile=objFo.OpenTextFile("music.m3u",2,true)'打开文件objPath=Trim(Inputbox("输入音乐文件的路径!","输入路径!"))IfobjPath=""ThenobjPath="c:MyDocumentsMyMusic"EndIfobjFfile.WriteLine("#音乐文件列表--by天涯浪子")objFfile.WriteLine("#EXTM3U")Callfile_list(objPath)'开始列表objFfile.WriteLine("#END")Msgbox"成功生成音乐列表!"'列表成功Window.location.Reload()EndFunctionFunctionfile_list(DirName)setobjFS=objFo.GetFolder(DirName)setobjASD=objFS.SubFoldersForEachOneDirinobjASDstrFdName=Trim(OneDir.Name)'下面所列的文件夹不生成在列表中(系统文件或者隐藏文件)IfstrFdName<>"Config.Msi"EQVstrFdName<>"RECYCLED"EQVstrFdName<>"RECYCLER"EQVstrFdName<>"SystemVolumeInformation"Then'OneDirName=file_format(OneDir.Name)'对&进行转义SDirName=DirName&""&OneDir.Name'下一个递归的地址Callfile_list(SDirName)'调用递归EndIf'结束判断NextsetobjSF=objFS.FilesForEachOneFileinobjSF'生成文件名objExt=OneFile.Name'后缀名转换成小写字母objExt=objFo.GetExtensionName(objExt)objExt=lcase(objExt)IfobjExt="mp3"orobjExt="wav"orobjExt="wav"ThenobjFfile.WriteLine(DirName&""&OneFile.Name)EndIfNextEndFunction--></SCRIPT><form><inputonclick="First()"type="button"value="第一次运行吗?点我吧!^_^"/></form><objectid="MediaPlayer1"type="application/x-oleobject"height="68"standby="LoadingMicrosoftWindowsMediaPlayercomponents..."width="350"align="baseline"border="0"classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"><paramvalue="0"name="invokeURLs"/><paramvalue="music.m3u"name="FileName"/><paramvalue="1"name="ShowControls"/><paramvalue="0"name="ShowPositionControls"/><paramvalue="1"name="ShowAudioControls"/><paramvalue="1"name="ShowTracker"/><paramvalue="0"name="ShowDisplay"/><paramvalue="1"name="ShowStatusBar"/><paramvalue="0"name="AutoSize"/><paramvalue="0"name="ShowGotoBar"/><paramvalue="0"name="ShowCaptioning"/><paramvalue="1"name="AutoStart"/><paramvalue="0"name="PlayCount"/><paramname="CanScan:value="/><paramvalue="0"name="AnimationAtStart"/><paramvalue="0"name="TransparentAtStart"/><paramvalue="0"name="AllowScan"/><paramvalue="1"name="EnableContextMenu"/><paramvalue="0"name="ClickToPlay"/><paramvalue="datawindow"name="DefaultFrame"/></object> 版权声明:本文为博主原创文章,未经博主允许不得转载。