程序代码：

Private Sub Form_Load()


 Dim X, Y
Open "c:\at.txt" For Input As #1

Open "c:\music.txt" For Input As #2

Do While Not EOF(1)
     Input #1, X
     Input #2, Y
     If Mid(X, 1, 2) = "ht" Then
     List1.AddItem (List1.ListCount + 1) & "." & Y
    Call wmp1.currentPlaylist.insertItem(wmp1.currentPlaylist.Count, wmp1.newMedia(X))
    ElseIf PathFileExists(X) = 1 Then
    List1.AddItem (List1.ListCount + 1) & "." & Y
    Call wmp1.currentPlaylist.insertItem(wmp1.currentPlaylist.Count, wmp1.newMedia(X))
    End If
Loop
Close #1
Close #2
end sub