bestandsnamen in een array

[wilbert1967]

hallo

ik wil met Application.FileSearch een directorie uitlezen en de gevonden bestanden in een array zetten

Sub App_FileSearch_Example()
'hier worden gezocht naar bestanden in de opgegeven map (lookin) en gesorteerd tijdens
'het vinden op volgorde van laatst aangepast.
Dim OWB As Workbook
 

  With Application.FileSearch
    .NewSearch
    .LookIn = "O:\Dfvw\Schijf-K\nccw\Inspectie\"
    .Filename = "*.xls"
    If .Execute > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
        " file(s) found."
        For i = 1 To .FoundFiles.Count
            bestandnamen = .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    
      'Workbooks.OpenText Filename:=naam, StartRow:=1, DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
      Semicolon:=True, Comma:=False, Space:=False, Other:=False
    End If
  End With

maar bij de for lus krijg ik steeds maar 1 in de variable

wat doe ik verkeerd?
mvg
wilbert

 

[snb]

Klink interessant, maar het lijkt me overbodig omdat de gevonden bestanden nl. al in een array staan: de array .foundfiles
Wil je die in een werkblad zetten doe dat dan met

with application.filesearch
Cells(1,1).resize(.foundfiles.count)=worksheetfunction.transpose(.foundfiles)
Cells(1,1).resize(,.foundfiles.count)=.foundfiles
End with