利用vbscrip写音乐播放器

< SCRIPTLANGUAGE = " VBScript " >
< ! --

Dim objFo,objF,objAF,objFfile,objPath,objExt
Function First()
set objFo = CreateObject ( " Scripting.FileSystemObject " ) ' 对象
set objFfile = objFo.OpenTextFile( " music.m3u " , 2 , true ) ' 打开文件

objPath = Trim ( Inputbox ( " 输入音乐文件的路径! " , " 输入路径! " ))
If objPath = "" Then
objPath = " c:MyDocumentsMyMusic "
End If
objFfile.WriteLine( " #音乐文件列表--by天涯浪子 " )
objFfile.WriteLine( " #EXTM3U " )
Call file_list(objPath) ' 开始列表
objFfile.WriteLine( " #END " )
Msgbox " 成功生成音乐列表! " ' 列表成功
Window.location.Reload()
EndFunction


Function file_list(DirName)
set objFS = objFo.GetFolder(DirName)
set objASD = objFS.SubFolders
For Each OneDirinobjASD
strFdName = Trim (OneDir.Name)
' 下面所列的文件夹不生成在列表中（系统文件或者隐藏文件）
If strFdName <> " Config.Msi " EQV strFdName <> " RECYCLED " EQV strFdName <> " RECYCLER " EQV strFdName <> " SystemVolumeInformation " Then
' OneDirName=file_format(OneDir.Name)'对&进行转义
SDirName = DirName & " " & OneDir.Name ' 下一个递归的地址
Call file_list(SDirName) ' 调用递归
End If ' 结束判断
Next
set objSF = objFS.Files
For Each OneFileinobjSF ' 生成文件名
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
Next
EndFunction

-->
</ SCRIPT >
< form >
< inputonclick = " First() " type = " button " value = " 第一次运行吗?点我吧!^_^ " />
</ form >
< object id = " 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 >

版权声明：本文为博主原创文章，未经博主允许不得转载。