请教大虾！！请问怎么才可以将一个目录的全部文件一起放到LIST中！

[etou]

请教各位大虾，怎么样通过commondialog的多重选，将选中的多个文件（或是一个目录中的所有文件）一起放到list中，（注：只能是一个文件占一个列表行）

[xiaobird1]

Private Sub Command1_Click()

Dim I As Integer

Dim Y As Integer

Dim Z As Integer



'存储文件名的数组

Dim FileNames$()

List1.Clear

CommonDialog1.FileName = ""

CommonDialog1.Filter = "All Files|*.*"



CommonDialog1.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect

CommonDialog1.Action = 1

CommonDialog1.FileName = CommonDialog1.FileName & Chr(32)

Z = 1

I = InStr(CommonDialog1.FileName, Chr(0))

If I > 0 Then

Do While I > 0

'InStr函数，返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

'语法 InStr(起点位置, string1, string2)

I = InStr(Z + 1, CommonDialog1.FileName, Chr(0))

If I > 0 Then

ReDim Preserve FileNames(Y)

'Mid函数，返回 Variant (String)，其中包含字符串中指定数量的字符。

'语法 Mid(string, start[, length])

FileNames(Y) = Mid(CommonDialog1.FileName, Z, I - Z)

Y = Y + 1

Z = I + 1

End If



Loop

ReDim Preserve FileNames(Y)

FileNames(Y) = Mid(CommonDialog1.FileName, Z, Len(CommonDialog1.FileName) - Z)

Y = Y + 1

For I = Y - 1 To 1 Step -1

List1.AddItem FileNames(0) & "\" & FileNames(I)

Next

Else

List1.AddItem CommonDialog1.FileName

End If

End Sub