ListBox

Dim sFile As String
Dim sPath As String
 
sPath = "f:\"
sFile = Dir$(sPath & "*.mp3")
 
List1.Clear
Do Until sFile = ""
  If sFile <> "." And sFile <> ".." Then
    List1.AddItem Left$(sFile, Len(sFile) - 4)
  End If
  sFile = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de