'Hallo Gamewalker
'Hier ein kleines Beispiel wie Du den Inhalt einer FileListBox in eine ListBox
'übertragen kannst.
'NG.:28.05.03
'
Private Sub Form_Load()
    With File1
        .Pattern = "*.*"
    End With
    Call SetFileListContentToListbox(List1)
End Sub
 
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    Call SetFileListContentToListbox(List1)
End Sub
 
Private Sub Drive1_Change()
    On Error GoTo ErrHandle
    Dir1.Path = Drive1.Drive
    On Error GoTo 0
    Exit Sub
ErrHandle:
    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 SetFileListContentToListbox(ByRef lb As ListBox)
    With lb
        .Clear
        For n = 0 To File1.ListCount - 1
            .AddItem File1.Path & "\" & File1.List(n)
        Next
    End With
End Sub
'MfG
'Frank