说明: 多媒体播放器Dim lujin As String Private Sub dakai_Click() lujin = ForFolder(hWnd, "请选择歌曲目录") If lujin "" Then If Right(lujin, 1) "\" Then lujin = lujin + "\" File1.Pattern = "*.mp3;*.wav;*.mid;*.mp4;*.CD;*.MIDI;*.rm;*.asx;*.dat;*.asf" File1.Path = lujin
<zcy951573431> 上传 | 大小:64kb