Why won't this work?

[hipopony66]

Private Sub Drive1_Change()
Dim x As Integer
Dim fname As String
 
If Drive1.Drive = "c:" Then
    File1.Path = "c:\Mp3s"
Else
File1.Path = "d:\mp3s"
End If
 
    
    For x = 0 To File1.ListCount - 1
        fname = File1.Path & "\" & File1.List(x)
        
        Set i = ListView1.ListItems.Add(, , File1.List(x))
        i.SubItems(1) = File1.Path
    DoEvents
    
    Next
End If
 
End Sub