Dim nCount As Long
Dim nBytes As Currency
Dim sFiles() As String
Dim sPath As String
Dim i As Long
Dim itemX As String
 
[color=green]' Pfad
sPath = "D:\"
 
[color=green]' Anzahl MP3's ermitteln
nCount = VBEx_FileCount(sPath, 1, "*.mp3", nBytes)
 
[color=green]' Array dimensionieren
ReDim sFIles(nCount)
 
[color=green]' Dateinamen ermitteln
nCount = VBEx_FileList(sPath, 1, "*.mp3", sFiles(), nBytes)
 
[color=green]' Dateien ins ListView übertragen
For i = 0 To nCount
  Set itemX = ListView1.ListItems.Add(, , VBEx_GetFileFromPath(sPath & sFiles( _
    i)))
  itemX.SubItems = VBEx_GetPathFromFile(sPath & sFiles(i))
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de