by aabra1 » Tue Oct 20, 2015 12:53 pm
I figures it out and sorted by file path:
Set list = SDB.AllVisibleSongList
' sort the list
Set objSortedList = CreateObject( "System.Collections.Sortedlist" )
For i=0 To list.count-1
Set itm = list.Item(i)
'MsgBox TypeName(itm) 'SDBSongData
objSortedList.add itm.Path, itm
Next
' Process all selected tracks
For i=0 To objSortedList.count-1
Set itm = objSortedList.GetByIndex(i)
number = number + 1
Next
I figures it out and sorted by file path:
Set list = SDB.AllVisibleSongList
' sort the list
Set objSortedList = CreateObject( "System.Collections.Sortedlist" )
For i=0 To list.count-1
Set itm = list.Item(i)
'MsgBox TypeName(itm) 'SDBSongData
objSortedList.add itm.Path, itm
Next
' Process all selected tracks
For i=0 To objSortedList.count-1
Set itm = objSortedList.GetByIndex(i)
number = number + 1
Next