'Hallo Daniela..
'Hier ein ganz simples Beispiel... Du benötigst hierfür eine :
'                                  DriveListBox :   Drive1
'                                  DirListBox     :   Dir1
'                                  FileListBox    :   File1
'                                  ListBox           :   List1
'NG.: 30.06.03
Private Sub Command1_Click()
    If File1.ListCount > 0 Then
        Dim n As Integer
 
        For n = 0 To File1.ListCount - 1
            With List1
                If Len(File1.List(n)) >= 64 Then '64 weil + der Dateiendung ( 
                ' .mp3)
                    Debug.Print Len(File1.List(n))
                    Call .AddItem(Len(File1.List(n)) - 4 & vbTab & File1.List( _
                      n))
                End If
            End With
        Next
    End If
End Sub
 
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub
 
Private Sub Drive1_Change()
    On Error GoTo procErr
    Dir1.Path = Drive1.Drive
    On Error GoTo 0
    Exit Sub
procErr:
    Const msg_err As String = "Das Laufwerk ist nicht bereit."
    MsgBox msg_err, vbCritical, "Laufwerksfehler...   " & Drive1.Drive & "\"
    Drive1.Drive = "c:\"
    Resume Next
End Sub
 
Private Sub Form_Load()
    File1.Pattern = "*.mp3"
    ChDir App.Path
End Sub
'MfG
'Frank