软件综合课程设计-MP3音乐播放器

1、课程设计班级：通信2班姓 名：闫振宇学号：1306030222指导教师：徐维成 绩： 电子与信息工程学院信息与通信工程系目录 TOC o 1-5 h z 前言1 HYPERLINK l bookmark10 o Current Document 1任务概述11.1设计题目1 HYPERLINK l bookmark12 o Current Document 1.2规则要求及目标1 HYPERLINK l bookmark14 o Current Document 1.3运行环境1 HYPERLINK l bookmark16 o Current Document 1.4条件与限制1 HYPER

2、LINK l bookmark18 o Current Document 2功能及模板设计1 HYPERLINK l bookmark20 o Current Document 2.1系统功能1 HYPERLINK l bookmark22 o Current Document 2.2模板设计2播放器界面3 HYPERLINK l bookmark26 o Current Document 保存3删除5 HYPERLINK l bookmark44 o Current Document 操作5 HYPERLINK l bookmark50 o Current Document 3数据结构与算法

3、设计5 HYPERLINK l bookmark52 o Current Document 3.1播放器界面 5 HYPERLINK l bookmark56 o Current Document 3.2保存6 HYPERLINK l bookmark58 o Current Document 3.2.1多文件保存6 HYPERLINK l bookmark62 o Current Document 3.2.2单文件保存7 HYPERLINK l bookmark64 o Current Document 3.2.3文件处理8 HYPERLINK l bookmark68 o Current

4、Document 3.2.4文件件保存8 HYPERLINK l bookmark80 o Current Document 3.3删除9 HYPERLINK l bookmark82 o Current Document 331 清空列表9 HYPERLINK l bookmark86 o Current Document 332删除列表9 HYPERLINK l bookmark92 o Current Document 3.3.3 删除本地文件 10 HYPERLINK l bookmark98 o Current Document 3.4操作11 HYPERLINK l bookmar

5、k100 o Current Document wmp11 HYPERLINK l bookmark104 o Current Document 控制11 HYPERLINK l bookmark118 o Current Document 4程序描述12 HYPERLINK l bookmark120 o Current Document 4.1音乐播放器的界面12 HYPERLINK l bookmark136 o Current Document 4.2保存14 HYPERLINK l bookmark140 o Current Document 多文件单文件保存14 HYPERLINK

6、 l bookmark162 o Current Document 文件夹保存16 HYPERLINK l bookmark174 o Current Document 4.3删除17 HYPERLINK l bookmark178 o Current Document 清空列表17 HYPERLINK l bookmark182 o Current Document 删除列表17 HYPERLINK l bookmark200 o Current Document 删除本地文件 19 HYPERLINK l bookmark204 o Current Document 4.4操作20 HYP

7、ERLINK l bookmark206 o Current Document wmp20 HYPERLINK l bookmark208 o Current Document 控制21 HYPERLINK l bookmark224 o Current Document 5设计感想22 HYPERLINK l bookmark226 o Current Document 参考文献22 、尸、刖言音乐是一种声音的符号，表达人的思想感情，是人们思想的载体之一。一款好的MP3 音乐播放器不仅能够提供好的音乐播放的效果，更能为使用提供舒适的操作。本款MP3音乐播放器利用Visual Basic 6.

8、0对音乐播放器进行编写。同时给出了详细 的系统设计过程，部分界面图及主要功能运行流程图。该音乐播放器集播放，暂停，下一首，上一首，调节音量，等基本操作，还可以进行 歌曲操作，实现全部列表循环，单曲循环，顺序播放，随机播放等功能，对于文件的添加， 文件夹的添加，本地文件的删除操作都可以实现，为实现文件夹保存功能，还调用了 window 的 API 函数。设计的指导思想是一切从问题出发，实际出发，界面简约，美观，操作尽量简明，让 使用者能够轻松使用，愉快听歌。任务概述1.1设计题目：MP3音乐播放器1.2规则要求及目标：1）可以同时多个文件选择和文件夹选择功能（一次选择文件夹中的所有文件）。2）支

9、持文件类型过滤功能。3）支持顺序播放、随机播放、列表循环播放和单曲循环播放。4）支持播放列表删除功能和本地文件删除功能。5）支持播放列表保存功能。1.3系统运行环境：Windows 7，Window XP，Visual Basic 6.0 中文版1.4条件与限制：程序要在Visual Basic 6.0软件下进行，我所制作的音乐播放器未与网络连接， 没有搜 索文件的功能，只能播放和添加电脑中已有的歌曲曲目。功能及模块设计2.1系统功能1）同时多文件选择（mand1）:通过单击按钮选择文件，经过鼠标右键拖拽可选择多个文件。单文件选择(mandl):通过单击按钮选择文件，鼠标左键单击即可。文件夹选

10、择：(mand2)：通过单击按钮选择文件夹，单击打开即可。清空列表(mand3):通过单击按钮，清空list列表中的歌曲。列表清除(mand4)：通过单击按钮，删除list列表中的任意歌曲。删除文件(mand5):通过单击按钮，从电脑删除list列表中歌曲本地文件Windows Media Player(forml.wmp):通过单击，实现歌曲播放，暂停，下一首，上 一首，声量调整。控制播放类型：(form1.菜单编辑器)：通过单击，实现歌曲全部循环，单曲循环，顺序播放，随机播放。2.2模板设计关于模板设计，在设计初期，利用 VB的可视化编程特性，先建立窗口(音乐播放器 界面)，在音乐播放器的

11、界面上设置按钮，其中按功能可分成三个部分，分别为保存，删 除，操作。保存设置按照要求有添加文件选项，添加文件夹选项，删除设置中按照要求有 清空列表，删除列表，删除本地文件等按钮。保存和删除操作都是由建立的两个文档相互 联系，操作也是调用文档内容进行一系列操作与控制。模板设计如图2-1所示：音乐播放器界面wmp全部循环保存操作文档2music.txt文档1Filepath.txt删除如图2-1模板设计图随机播放单曲循环221音乐播放器界面：该窗体是主窗体，整个程序只有一个窗体，其他功能都是由添加控件完成。窗体中大 致分为三个模块：保存，删除，基本操作三部分。该窗体设置了 comma nd按钮控件

12、5个，timer时间控件2个，Commo nDialog （ cd） 选取文件控件1个，label标签控件1个，Windows Media Player（ wmp）播放器控件1个, list列表控件1个。播放器界面如图2-2所示：图2-2界面图2.2.2保存：1 ）多文件保存:鼠标单击command1控件按钮，选择歌曲存储的文件夹，选择你所选取的多首歌曲鼠标单击打开即可，经过对于歌曲的处理，歌曲名称显示在list列表中。如图2-3所示:图2-3多文件保存图2）单文件保存:鼠标单击command1控件按钮，选择歌曲存储的文件夹，选择你所选取的歌曲。鼠标 单击打开即可，经过对于歌曲的处理，歌曲名称

13、显示在list列表中。如图2-4所示：尊申上 ttIM b EwDcwvW口id -丨 播JT加而血a 15： 1$R Admiriftrdflor 亠HMmt卫雄出itj 1S乐口1*怖*Jt 嗨=4讯常戸,耳培玉曲唧1也辆會抽丰凹孟悔-L-D5* -孟t翅曲冋五月黃KwDDwHoIi1/1q=g.Fmgrm Fib 邑下抵J CWRW$4fi11翎却昨匸调乏彌-|血|打开(oj It :曲图2-4单文件保存图经过对于文件名的处理，才能显示在list列表中3 )文件夹保存：文件夹保存如图2-5所示：浏臆文际清迭搽文件夷1国控制面板“ !计尊机匚本地犠盘CC:J b Ljj娱乐本地磁盘CEJ

14、J本地蹴盘(? )KwDowikloadProgram Files work J迅雷下载ifkR .! nfl /口 S.T1确 取消图2-5文件夹保存图文件夹选择功能利用了 API函数编写的API控件操作完成的。API函数控件写在通用 中，通过调用GetFolder函数来完成文件夹选择功能。接下来调用Showfilelist函数处理文件夹选择的文件。通过单击按钮控件command2,选择歌曲所在的文件夹，这样不能选取文件夹中的歌 曲，能整个文件夹选取，Showfilelist函数能够自动删选文件夹中歌曲。经过文件选取，才 能显示在list列表中。223删除）清空列表：（command3）单击

15、按钮控件command3, list列表中所有歌曲清除。）删除列表：（command4）选取list列表中的任意一首歌曲，单击按钮控件command4, 此歌曲就在列表中删除了。）删除本地文件：（command5）选择一首你想从电脑中删除的歌曲，单击按钮控件 command5,歌曲在电脑中就删除了。2.2.4 操作） Wmpwmp全称Windows Media Player，是VB中重要的控件之一，主要实现歌曲播放，暂停，下一首，上一首，调节音量大小的功能，在其他控件代码中调用wmp的方法，就可以实现wmp的基本操作。方法如：playState:integer;播放状态，仁停止，2=暂停，3=

16、播放, 6二正在缓冲，9二正在连接，10=准备就绪，controls.next;下一曲controls.previous;上一曲， controls.play;播放 controls.pause;暂停 controls.stop;停止等。playState:integer播放状态， 这个属性改变的同时引发 playStateChange事件和StateChange事件。使用：在其他控件中调用方法即可。）控制完成对于播放器的一系列控制操作，利用了VB中的菜单编辑器功能，在forml菜单编辑器中编辑控制按键，其中包括顺序播放，随机播放，全部循环，单曲循环。数据结构与算法设计3.1播放器界面Form

17、l代码：在form1的载入事件中填写代码：Dim x As String, y As Stri ngLabel1.C aptio n = If Dir(C:filepath.txt) = Or Dir(C:music.txt) = ThenOpe n C:filepath.txt For Output As #1Close #1Ope n C:music.txt For Output As #2Close #2End If /读取文件/Ope n C:filepath.txt For Input As #1Ope n C:music.txt For In put As #2Do While N

18、ot EOF(1)In put #1, xIn put #2, yIf Dir(x) The nList1.Addltem (List1 ListCou nt + 1) & . & yCall wmp.curre ntPlaylist.i nsertltem(wmp.curre ntPlaylist.Co unt, wmp. newMedia(x) End If Loop/Do循环，打开文件号1,文件号2, list列表中存有文件号2中的歌曲，wmp调用文件号 1歌曲地址，播放文件号1歌曲/Close #1, #2Timer1.E nabled = Falseallloop.Checked =

19、 Falseon eloop.Checked = Falseran d.Checked = Falserule.Checked = TrueCall wmp.settings.setMode(shuffle, False)/初始设置为顺序播放 /Timer2.E nabled = True3.2保存3.2.1多文件保存：在command1控件的单击事件中输入代码：Dim strFileName As Stri ng cd.DialogTitle =打开音乐文件 cd.Filter = mp3|*.mp3|wma|*.wmacd.lnitDir = D: /显示起始目录/cd.Flags = c

20、dlOFNExplorer + cdlOFNAIIowMultiselectcd.ShowOpe nstrFileName = cd.FileName file name /cd 控件 /If (strFileName ) The nDim sPath, tmpStr As Stri ngDim sFile() As Stri ngDim iCo unt As In tegerDim I As In tegersPath = CurDir() /表示当前路径/tmpStr = Right$(strFileName, Le n(strFileName) - Len( sPath)/应用if语句做

21、一个判断，将选中的歌曲的路径与歌曲名称分开/If Left$(tmpStr, 1) = Chr$(0) The n/选择了多个文件(分离后第一个字符为Chr$(0)/For I = 1 To Len (tmpStr)If Mid$(tmpStr, I, 1) = Chr$(0) The niCou nt = iCou nt + 1ReDim Preserve sFile(iCount)重新定义数组 /ElsesFile(iCou nt) = sFile(iCou nt) & Mid$(tmpStr, I, 1)End IfNext IElse/应用for语句先做一个循环，在循环中判断多文件后，

22、将多文件分离成为单文件/3.2.2单文件保存：iCou nt = 1ReDim Preserve sFile(iCo unt)If Left$(tmpStr, 1) = The n tmpStr = Right$(tmpStr, Le n(tmpStr) - 1) sFile(iCou nt) = tmpStrEnd If323文件处理：If Right$(sPath, 1) The n sPath = sPath & Ope n C:filepath.txt For Appe nd As #1For I = 1 To iCou ntCall wmp.curre ntPlaylist.i ns

23、ertltem(wmp.curre ntPlaylist.Co unt, wmp. newMedia(sPath& sFile(I)Write #1, sPath & sFile(I)Next IClose #1Ope n C:music.txt For Appe nd As #2For I = 1 To iCou ntList1 .A ddItem (List1 丄 istCou nt + 1) & . & Left(sFile(l), Le n(sFile(l) - 4)/去掉.mp34个字符/Write #2, Left(sFile(I), Le n(sFile(l) - 4)/应用fo

24、r循环将歌曲名称后的4个字符去掉，记录在list列表中格式为“数字.歌曲名” /Next I Close #2End If3.2.4文件夹保存：在command2控件的单击事件中输入代码：Dim strFileName As Stri ngstrFileName = GetFolder(Me.hWnd)If (strFileName ) The n Showfilelist (strFileName)/API函数控件写在通用中，通过调用GetFolder函数来完成文件夹选择功能。接下来调用Showfilelist函数处理文件夹选择的文件。(与多文件单文件处理方式相同) /Showfilelis

25、t 函数代码：Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject(Script in g.FileSystemObject)Set f = fs.GetFolder(folderspec)Set fc = f.FilesIf Right$(folderspec, 1) The n folderspec = folderspec & For Each f1 In fcIf (Right$(f1.Name, 3) = mp3 Or Right$(f1.Name, 3) = wma) The n/

26、过滤文件夹中mp3, wma歌曲文件/Ope n C:filepath.txt For Appe nd As #1Call wmp.curre ntPlaylist.i nsertltem(wmp.curre ntPlaylist.Co unt, wmp. newMedia(folderspec &f1.Name)/文件夹文件处理方式与单文件，多文件文件处理方式相同/3.3删除清空列表：在command3控件的单击事件中输入代码：List1.Clearwmp.curre ntPlaylist.ClearKill C:filepath.txtKill C:music.txt3.3.2删除列表：在

27、command4控件的单击事件中输入代码：Dim temp As Stri ngDim I As In tegerIf List1.Listl ndex -1 The nOpe n C:music.txt For In put As #1Ope n C:music1.txt For Output As #2Do Un til EOF(1)In put #1, tempIf I List1.List In dex The n Write #2, tempI = I + 1Loop /Do语句做一个循环，处理music.txt文档，将music1.txt替代music.txt,将文件号1中歌曲 复

28、制到文件号2中，利用一个变量temp/Close #1, #2Kill C:music.txtName C:music1.txt As C:music.txt / 要求完整路径 /I = 0Ope n C:filepath.txt For Input As #1Ope n C:filepath1.txt For Output As #2Do Un til EOFIn put #1, tempIf I List1.List In dex The n Write #2, tempI = I + 1Loop/同上，替代关系，将文档filepath1.txt替代filepath.txt文档/Close

29、 #1, #2Kill C:filepath.txtName C:filepath1.txt As C:filepath.txtCall wmp.curre ntPlaylist.Removeltem(wmp.curre ntPlaylist.ltem(List1.Listl ndex)/让歌曲在wmp中去除/List1.RemoveItem (List1 Listlndex)/让歌曲在列表中去除 /End If333删除本地文件在command5控件的单击事件中输入代码：Do Un til EOF(1)In put #1, tempIf I List1.List In dex The nWr

30、ite #2, tempElseKill temp /删除本地文件/End IfI = I + 1Loop/与删除文件代码相似，但也有所不同/3.4操作wmpWmp中不用编写代码，调用wmp中的事件，方法就可以实现歌曲的播放，暂停，下 一首，上一首，音量的调整。3.4.2 控制菜单编辑器是VB中重要的一种应用，是显示在窗口界面上端具有选择功能的按键。 菜单编辑器如图3-1所示：图3-1菜单编辑器图1 ）顺序播放:Timer1.E nabled = Falseallloop.Checked = Falseon eloop.Checked = Falseran d.Checked = Falser

31、ule.Checked = TrueCall wmp.settings.setMode(shuffle, False)代码最后一行说明默认随机停止 /2）随机播放:ran d.Checked = TrueCall wmp.settings.setMode(shuffle, True)全部循环：allloop.Checked = TrueCall wmp.settings.setMode(loop, True) loop/循环，默认顺序播放 /单曲循环：Timer1.E nabled = Trueon eloop.Checked = True/单曲循环中用到timer控件单曲循环设置/If wm

32、p.curre ntMedia.durati on - 0.5 wmp.Co ntrols.curre ntPositio n The nCall wmp.C on trols.playltem(wmp.curre ntPlaylist.ltem(o ne)End If /单曲循环设置/程序描述4.1音乐播放器界面：该窗体是主窗体，整个程序只有一个窗体，其他功能都是由添加控件完成。窗体中大 致分为三个模块：保存，删除，基本操作三部分。该窗体设置了 comma nd按钮控件5个，timer时间控件2个，Commo nDialog ( cd) 选取文件控件1个，label标签控件1个，Window

33、s Media Player( wmp)播放器控件1个, list列表控件1个。1 )Form 代码：Private Sub Form_Load()Dim x As String, y As Stri ngLabel1.C aptio n =/在主窗口载入事件中，首先设置label标签控件，当没有歌曲播放时，标签没有显示任何 东西/If Dir(C:filepath.txt) = Or Dir(C:music.txt) = The nOpe n C:filepath.txt For Output As #1Close #1Ope n C:music.txt For Output As #2Cl

34、ose #2End IfOpe n C:filepath.txt For Input As #1Ope n C:music.txt For In put As #2/利用if语句判断，当建立的两个文档(路径文档，歌曲名称文档)其中一个不为空，则 执行打开和载入文档操作，分别定义为文件号1,文件号2/Do While Not EOF(1)In put #1, xIn put #2, yIf Dir(x) The nListl. AddItem (Listl ListCou nt + 1) & . & yCall wmp.curre ntPlaylist.i nsertltem(wmp.curre

35、 ntPlaylist.Co unt, wmp. newMedia(x)End If/载入歌曲后，设置list列表控件显示的内容，格式为“数字.歌曲名称”，调用wmp控件， wmp控件播放顺序设置为list列表显示的歌曲顺序/LoopClose #1, #2Timer1.E nabled = Falseallloop.Checked = Falseon eloop.Checked = Falseran d.Checked = Falserule.Checked = True/其中allloop为全部循环，on eloop为单曲循环，rand为随机播放，rule为顺序播放/Call wmp.se

36、tt in gs.setMode(shuffle, False)/设置初始的播放顺序为顺序播放True，其他播放顺序为False/Timer2.E nabled = True/其中Timer2是设置label控件，每当播放一个歌曲，显示当前播放歌曲名。(详细请看Timer2 控件)/End Sub2 ) Timer2控件代码：Private Sub Timer2_Timer()If wmp.currentPlaylist.Count 0ThenLabell.Caption =wmp.currentMedia.getltemlnfo(title)End Sub/由此控制label1控件显示，只要

37、有歌曲的播放，就会显示当前播放歌曲名称/4.2保存：保存分为多文件保存，单文件保存，文件夹保存三个部分。4.2.1多文件，单文件保存Private Sub Command1_Click()添加文件 /Dim strFileName As Stri ngcd.DialogTitle =打开音乐文件cd.Filter = mp3|*.mp3|wma|*.wmacd.lnitDir = D: /显示起始目录/cd.Flags = cdlOFNExplorer + cdlOFNAIIowMultiselectcd.ShowOpe nstrFileName = cd.FileName file name

38、打开文件夹保存歌曲，过滤文件，多文件选择都利用了Com mon Dialog( cd)选择文件控件，其中cd属性Filter用于过滤歌曲文件，文件类型为 mp3，wma的文件自动显示。 cd属性Flags的OFNAIIowMultiselect是有多文件选择的功能。file name属性就返回一个包 含全部所选文件名的字符串，串中各文件名用空格隔开 ctr$(0)。1 )多文件保存代码：If (strFileName ) The nDim sPath, tmpStr As Stri ngDim sFile() As Stri ngDim iCo unt As In tegerDim I As

39、In teger/其中iCount文件数，sPath路径，sFile()文件名/sPath = CurDir() /表示当前路径 /tmpStr = Right$(strFileName, Len(strFileName) - Len(sPath)/将文件名与路径分离，取右部字符（全部所选文件名”If Left$(tmpStr, 1) = Chr$(O) The n/选择了多个文件(分离后第一个字符为Chr$(O)/For I = 1 To Len (tmpStr)If Mid$(tmpStr, I, 1) = Chr$(0) The niCou nt = iCou nt + 1ReDim P

40、reserve sFile(iCount)重新定义数组 /ElsesFile(iCou nt) = sFile(iCou nt) & Mid$(tmpStr, I, 1)End IfNext I/分离多文件，成为单个文件/2)单文件代码：ElseiCou nt = 1ReDim Preserve sFile(iCo unt)If Left$(tmpStr, 1) = The n tmpStr = Right$(tmpStr, Le n(tmpStr) - 1) sFile(iCou nt) = tmpStrEnd IfIf Right$(sPath, 1) The n sPath = sPat

41、h & /此次操作使单文件路径，歌曲名彻底分开/3 )文件处理代码：Ope n C:filepath.txt For Appe nd As #1For I = 1 To iCou ntCall wmp.curre ntPlaylist.i nsertltem(wmp.curre ntPlaylist.Co unt, wmp. newMedia(sPath& sFile(I)Write #1, sPath & sFile(I)Next IClose #1Ope n C:music.txt For Appe nd As #2For I = 1 To iCou ntListl.Addltem (Li

42、stl ListCou nt + 1) & . & Left(sFile(l), Le n(sFile(l) - 4)Write #2, Left(sFile(I), Le n(sFile(l) - 4)Next IClose #2End IfEnd Sub分别打开filepath.txt, music.txt文档，filepath.txt文档中存有歌曲播放地址， wmp播 放时应打开filepath.txt文档播放，music.txt文档存有歌曲名称，操作是list列表中存有歌 曲名称去掉“ .mp3” 4个字符即可。4.2.2文件夹保存：1 )文件夹保存代码：Private Sub Com

43、mand2_Click()添加文件夹 /Dim strFileName As Stri ngstrFileName = GetFolder(Me.hWnd)If (strFileName ) The n Showfilelist (strFileName)End Sub/文件夹选择功能利用了 API函数编写的API控件操作完成的,API函数控件写在通用中， 通过调用GetFolder函数来完成文件夹选择功能/接下来调用Showfilelist函数处理文件夹选择的文件。2)Showfilelist 函数代码：Private Sub Showfilelist(folderspec)Dim fs,

44、f, f1, fc, sSet fs = CreateObject(Script in g.FileSystemObject)Set f = fs.GetFolder(folderspec)Set fc = f.FilesIf Right$(folderspec, 1) The n folderspec = folderspec & For Each f1 In fcIf (Right$(f1.Name, 3) = mp3 Or Right$(f1.Name, 3) = wma) Then/过滤文件夹中mp3, wma歌曲文件/Ope n C:filepath.txt For Appe nd

45、As #1Call wmp.curre ntPlaylist.i nsertltem(wmp.curre ntPlaylist.Co unt, wmp. newMedia(folderspec & f1.Name)Write #1, folderspec & f1.NameClose #1Ope n C:music.txt For Appe nd As #2List1.AddItem (List1 ListCou nt + 1) & . & Left(f1.Name, Le n(f1.Name) - 4)Write #2, Left(f1.Name, Le n(f1.Name) - 4)Clo

46、se #2End IfNextEnd Sub/接下来的文件处理操作与多文件，单文件文件处理操作相同/4.3删除删除操作分为清空列表，删除列表，删除本地文件三个部分。4.3.1清空列表1 )清空列表代码：Private Sub Command3_Click()清空播放列表 /List1.Clearwmp.curre ntPlaylist.ClearKill C:filepath.txtKill C:music.txtEnd Sub/清空wmp列表歌曲，清空filepath.txt，music.txt文档内容，清空list列表内容即可/4.3.2删除列表1 )删除列表代码：Private Sub

47、Command4_Click()从列表中删除 /Dim temp As Stri ngDim I As In tegerIf Listl.ListIndex -1 ThenOpe n C:music.txt For In put As #1Open C:music1.txt For Output As #2Do Un til EOF(1)/EOF ()函数用来测试文件的结束状态/In put #1, tempIf I List1.Listlndex Then Write #2, tempI = I + 1LoopClose #1, #2Kill C:music.txtName C:music1

48、.txt As C:music.txt/要求完整路径/I = 0Ope n C:filepath.txt For Input As #1Ope n C:filepath1.txt For Output As #2Do Un til EOF(1)In put #1, tempIf I List1.ListIndex Then Write #2, temp/通过Do循环，每次将文件号1中一首歌曲名赋给temp，如果当前数字不等于删除歌曲 的开头数字，就往下进行存入文件号 2,若等于直接跳过。当循环结束，文件号2中存有删除歌曲文件后的列表/I = I + 1LoopClose #1, #2Kill

49、C:filepath.txtName C:filepath1.txt As C:filepath.txt/建立两个空白文档，music1.txt，filepath1.txt，其中存有删除文件后的列表，然后替代原来两个文档中的列表/Call wmp.curre ntPlaylist.Removeltem(wmp.curre ntPlaylist.ltem(List1.Listl ndex) /让歌曲在wmp中去除/Listl.Removeltem (Listl.Listlndex)/让歌曲在列表中去除 /End IfEnd Sub删除列表流程如图4-1所示:图4-1删除列表流程图433删除本地文件1 ）删除本地文件代码:Do Un til EOF