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

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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yv2xj7vje2evv3vf3y.html