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

[Nightwalker83]

What are you trying to do?

[Arc]

what do you mean by "Why won't this work"? What exactly is not working?

[hipopony66]

When the user changes the drive letter in the drivelistbox, it checks to see which drive is selected. Then, it sets the filelistbox path based on which drive is selected, and adds all of the files and their paths to the listview

[Nightwalker83]

Originally posted by hipopony66
When the user changes the drive letter in the drivelistbox, it checks to see which drive is selected. Then, it sets the filelistbox path based on which drive is selected, and adds all of the files and their paths to the listview

Is that for the folder that the user chooses?

[Bruce Fox]

Try:

i.ListSubItems.Add , , File1.Path

[Bruce Fox]

And I think that last End IF should go.

[Bruce Fox]

hipopony66,

In any event I think u have a few things back-to-front.

I'm just trying to sort them out now

[hipopony66]

It never finds the drive1.drive ="c:\"

Even though the C: drive is selected. What could cause this?

does the drive label have to be included? and if so, how come you can set the default drive by putting in form load event

drive1.drive= "d:\"?

[Bruce Fox]

Here u go:

Private Sub Drive1_Change()
    Dim fname As String
    Dim x As Integer
 
    If Left$(Drive1.Drive, 2) = "c:" Then  'Change here
        File1.Path = "c:\Mp3s"
    Else
        File1.Path = "d:\Mp3s"
    End If
 
    With ListView1    'Added this
        .ColumnHeaders.Clear
        .View = lvwReport
        .ColumnHeaders.Add , , "Path", 1000, 0
        .ColumnHeaders.Add , , "Song Title", 2000, 0
    End With
 
    For x = 0 To File1.ListCount - 1    'Changes made here
        fname = File1.Path & "\" & File1.List(x)
        Set i = ListView1.ListItems.Add(, , fname)
        i.ListSubItems.Add , , File1.List(x)
    Next
 
End Sub

The C: wasn't found cause .Drive = "C: [Drive Name]"

[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

[Bruce Fox]

After a few slight changes, ie fname isn't required.

Option Explicit
 
Private Sub Drive1_Change()
    Dim x As Integer
    Dim i As ListItem    'Added this
 
    If Left$(Drive1.Drive, 2) = "c:" Then  'Change here
        File1.Path = "c:"
    Else
        File1.Path = "d:"
    End If
 
    With ListView1    'Added this
        .ColumnHeaders.Clear
        .View = lvwReport
        .ColumnHeaders.Add , , "Path", 1000, 0
        .ColumnHeaders.Add , , "Song Title", 2000, 0
    End With
 
    For x = 0 To File1.ListCount - 1    'Changes made here
        Set i = ListView1.ListItems.Add(, , File1.Path) 'Replaced fname
        i.ListSubItems.Add , , File1.List(x)
    Next
 
End Sub