Files contains an array of filenames. (There can be up 60+ so the Split OpenArgs method didn't seem ideal),
Yes to Listview and ActiveX. Three columns are used. This is in frmER.
Code:
Sub FillList()
Dim i As Integer
Dim xmp As clsMP3ID3V2
Dim FL As clsFlacTag
For i = 1 To UBound(filenames)
Set TheListview = ListView8.ListItems.Add(, , filenames(1))
TheListview.SubItems(1) = StripPath(filenames(i))
Select Case fExt(TheListview.SubItems(1))
Case "mp3"
Set xmp = New clsMP3ID3V2
xmp.mp3File = filenames(i)
TheListview.SubItems(2) = xmp.EncodedBy
TheListview.SubItems(3) = xmp.LinkTo
Case "flac"
Set FL = New clsFlacTag
FL.Flacfile = filenames(i)
TheListview.SubItems(2) = FL.EncodedBy
TheListview.SubItems(3) = FL.LinkTo
End Select
Next
End Sub