Combobox Change Event Question

[hipopony66]

Why won't this code work? It doesn't change to the correct directory, clear the listview, & repopulate the listview on the change event. Here's my code:

Private Sub Combo1_Change()
File1.Path = "C:\mp3s\" & Combo1.Text
 ListView1.ListItems.Clear
 For X = 0 To File1.ListCount - 1
       
        Set i = ListView1.ListItems.Add(, , File1.List(X))
        i.SubItems(1) = File1.Path
    DoEvents
    
    Next
End Sub