Dim lCount As Long
Dim nBytes As Currency
Dim i As Long
 
' zunächst Anzahl Dateien ermitteln
lCount = VBEX_FileCount("c:\", 0, "*.*", nBytes)
 
' Array dimensionieren
ReDim sFiles(lCount) As String
 
' Dateinamen ermitteln
lCount = VBEX_FileList("c:\", 0, "*.*", sFiles(), nBytes)
 
' und ab in's ListView
For i = 0 To lCount
  ListView1.ListItems.Add , , sFiles(i)
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de