VB读取文件夹下文件到数组出错，请大侠帮忙看看，本人没多少分，解决后全送了

[scudsoft]

'在pic文件夹下有若干个名为Sc***.Dps的文件，要将这些文件读入数组处理，得不到文件名，请帮忙看看
我分不高，解决后全送了

Dim FileName As String
Dim strFile() As String
Dim n As long,i As Long

FilePath = App.Path & "\Pic\"
FileName = Dir(FilePath & "Sc*.Dps")

n = o
If FileName <> "" Then
Do
DoEvents
n = n + 1
FileName = Dir()
Loop Until FileName = ""
End If

List1.Clear
Text1.Text = n '显示文件数（可以正常显示）

ReDim strFile(1 To n) As String
For i = 1 To n
strFile(i) = FileName '问题应该是出在这儿
i = i + 1
List1.AddItem strFile(i)

Next

End Sub

[scudsoft]

多谢多谢，一天后才可以加分，明天给您加上哈

[大王派我去巡山]

我猜你是要实现这样的效果吧

Private Sub Command1_Click()
    Dim FileName     As String
    Dim filepath     As String
    Dim strFile()    As String
    Dim n            As Long
    Dim i            As Long
    
    filepath = App.Path & "\Pic\"
    FileName = Dir(filepath & "Sc*.Dps")
    
    n = 0
    While FileName <> ""
        DoEvents
        n = n + 1
        ReDim Preserve strFile(n)
        strFile(n) = FileName
        FileName = Dir()
    Wend
    
    List1.Clear
    Text1.Text = n
    
    For i = 1 To n
        List1.AddItem strFile(i)
    Next
End Sub

[skyell]

好，呵呵

[嗷嗷叫的老马]

............................