Option Explicit Private Sub Command1_Click() Dim num As
Integer Dim filename As String Dim filenum As
Integer Dim i As
Integer num=File1.ListCount filenum=FreeFile Open
″C:\filelist.m3u″ For Output As ＃filenum For i=0 To num－1 If
File1.Selected(i)
Then filename=File1.Path＋″\″＋File1.List(i) End
If Print ＃filenum，filename Next Close
＃filenum MediaPlayer1.filename=″C:\filelist.m3u″ End
Sub
Private Sub Dir1_Change() File1.Path=Dir1.Path End
Sub
Private Sub
Drive1_Change() Dir1.Path=Drive1.Drive End
Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
