Private Sub Command1_Click()
  Dim i As Integer
  Dim nSize As Long
  Dim sPath As String
 
  sPath = "c:mp3_ordner"
 
  With File1
    .Path = sPath
    .Pattern = "*.mp3"
    .Refresh
 
    List1.Clear
    For i = 0 To .ListCount - 1
      nSize = FileLen(sPath & "\" & .List(i))
      List1.AddItem Format$(nSize, "0000000") & " - " & .List(i)
    Next i
  End With
End Sub