Private Sub Drive1_Change()
    Directory1.Path = Drive1
End Sub
Sub ListPfad(Ordner)
   Dim FSO, ORD, ORD1, FileProp, FP  As String
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set ORD = FSO.GetFolder(Ordner)
   Set FileProp = ORD.SUBFOLDERS
    List1.Clear
        For Each ORD1 In FileProp
            List1.AddItem ORD1.Name
        Next
End Sub
Private Sub Directory1_Change()
File1.Path = Directory1
ListPfad (File1.Path)
End Sub