It's the filenames. I have the following code
'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)
gfindFiles is a old routine I find still works ok to get the filenames to an array.
I'm playing with the Key and Item values to see what works best.
Maybe a Collection would be better, I'll have to do some Googling...
Thanks for reply