DIm nCount As Long
Dim sFiles() As String
Dim sPath As String
Dim nBytes As Currency
Dim i As Long
 
sPath = "c:\"
 
<font color=green>' Anzahl Dateien ermitteln</font>
nCount = VBEx_FileCount(sPath, 1, "*.mp3", nBytes)
 
If nCount >= 0 Then
  <font color=green>' Jetzt die Dateinamen ermitteln</font>
  ReDim sFiles(nCount)
  nCount = VBEx_FileList(sPath, 1, "*.mp3", sFiles(), nBytes)
  For i = 0 To nCount
    List1.AddItem sFiles(i)
  Next i
End If