急需一个可以支持选择多文件的模块 谢谢 特别着急 !!

Question

如题了

Answer 1

以下是我开发mp3播放器时用到的代码 给你分享  你大概就会了解了
Dim FileNameTemp As String '临时文件名称
Dim Filenames() As String  '用于存储文件名称的数组
Dim I As Integer, Y As Integer, z As Integer
Dim Filenam As String     '返回一个或多个文件地址
Dim MusicName As String   '存储歌曲名称
Dim MusicPath As String   '存储歌曲绝对路径
'FileNameTemp = GetFileName("Open", "MP3音频|*.mp3|WMA音频|*.wma|全部音频|*.mp3 *.wma", "*.*")
FileNameTemp = GetFileName("Open", "MP3音频|*.mp3|WMA音频|*.wma", "*.*")Filenam = RTrim(FileNameTemp)If Len(Filenam) = 0 Then Exit Subz = 1
For I = 1 To Len(Filenam)
    I = InStr(z, Filenam, "|")
    If I = 0 Then Exit Sub
    ReDim Preserve Filenames(Y)
    Filenames(Y) = RTrim(Mid(Filenam, z, I - z))
    z = I + 1
    Y = Y + 1
NextIf Y = 1 Then
    Call ClearMusic(lstPath)
    Call ClearMusic(lstName)
    MusicName = ExtractFileName(Filenames(0))
    lstPath.AddItem Filenames(0)
    lstName.AddItem MusicName
Else    For I = 1 To Y - 1
        MusicName = ExtractFileName(Filenames(I))
        lstPath.AddItem Filenames(0) & "\" & Filenames(I)
        lstName.AddItem MusicName
    Next
End If