Question

在vb中怎么把文件路径添加到list的列表里面去 ？

在vb中怎么可以把commondialog选中的文件加到list的列表里面去 ？我想做一个MP3播放器，要调用listbox控件！

Answer 1

Private Sub Command1_Click()
Dim arr, i As Integer
List1.Clear
CommonDialog1.FileName = ""
CommonDialog1.Filter = "All Files|*.*"
CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
CommonDialog1.Action = 1
CommonDialog1.FileName = CommonDialog1.FileName & Chr(32)
If CommonDialog1.FileName <> "" Then '当已选择文件时
arr = Split(CommonDialog1.FileName, Chr(0)) '将字符串拆分为数组
End If
If UBound(arr) > LBound(arr) Then '当数组长度大于1时
Text1.Text = arr(LBound(arr)) '显示文件所在路径
For i = LBound(arr) + 1 To UBound(arr) '显示文件所在路径
List1.AddItem arr(i) '在列表项中添加文件名称
Next i
Else
File1.FileName = CommonDialog1.FileName '设置文件名属性用于获取所选文件路径
Text1.Text = File1.Path '显示文件所在路径
List1.AddItem File1.FileName '在列表项中添加文件名称
End If
End Sub

Answer 2

直接添加就行了呀！假设ListBox的名称为List1，CommonDialog控件名称为CommonDialog1，直接用下列语句就可以添加一个通过CommonDialog选中的文件：
CommonDialog1.ShowOpen
If CommonDialog1.FileName <>"" then
List1.AddItem CommonDialog1.FileName
End If