'Load the files from Hard Drive
MyFiles = BubbleSort2(gFindFiles(bbpath, "*" & bbType & ";*.nfo", UseAlbumSubfolders))
'load the filenames into a dictionary
Dim ofiles As Scripting.Dictionary
Set ofiles = New Scripting.Dictionary
ofiles.CompareMode = TextCompare 'Upper/lower case the same
'iterate through the dictionary using string.Contains() function ?? Doesn't seem to exist
Dim i As Integer
For i = 1 To UBound(MyFiles)
ofiles.Add StripPath(MyFiles(i)), MyFiles(i)
Next
Stop