Why won't this work?

[Arc]

This here seems to work...

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