excel vba case sensitivity in a recursive function problem

I'm using some code example by Albert Kallall and Browne that uses a recursive function to build a collection of files based on a string search where strFileSpec is set to a wildcard file. srtTemp is the temporary directory being added to the collection if strFileSpec is True. As it is, strFileSpec is case sensitive at the code level, but the files vary in case sensitivity - some are all upper, some all lower, and even some are Proper. Is there a way to set an argument to find a search strFileSpec, regardless of case at the code level?

Public Function RecursiveDir(colFiles As Collection, _
                             strFolder As String, _
                             strFileSpec As String, _
                             bIncludeSubfolders As Boolean)

    Dim strTemp As String
    Dim colFolders As New Collection
    Dim vFolderName As Variant

    'Add files in strFolder matching strFileSpec to colFiles
    strFolder = TrailingSlash(strFolder)
    strTemp = Dir(strFolder & strFileSpec)
    Do While strTemp <> vbNullString
        colFiles.Add strFolder & strTemp
        strTemp = Dir
    Loop

    If bIncludeSubfolders Then
        'Fill colFolders with list of subdirectories of strFolder
        strTemp = Dir(strFolder, vbDirectory)
        Do While strTemp <> vbNullString
            If (strTemp <> ".") And (strTemp <> "..") Then
                If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0 Then
                    colFolders.Add strTemp
                End If
            End If
            strTemp = Dir
        Loop

        'Call RecursiveDir for each subfolder in colFolders
        For Each vFolderName In colFolders
            Call RecursiveDir(colFiles, strFolder & vFolderName, strFileSpec, True)
        Next vFolderName
    End If

End Function

Hi terriertrip

Can we have the global code or the file that contains it?

Hi terriertrip,

For me the problem is not in the recursive function of the path, but in GetFiles procedure

Test

If UCase(FileName) Like UCase(strFileSpec) Then

The line below

 'now loop through each collection file
  For Each vFile In colFiles
    FileName = fso.GetFileName(vFile) 'get file name of each collection file
    'if file name found in subdirectories Like strFileSpec open file

Its very odd. I have a whole subdirectory called 'dq' that vFile isn't not looping through. I debugged the For Next statement and it shows that the directory is completely skipped within colFiles. Spaces aren't the issue since there are other folders and files with spaces that colFiles successfully collects.

All the files within the problematic directory are uppercase, but it wouldn't make a difference since Search isn't case sensitive. This is evident after debugging, since the function is properly collecting all subdirectories with the criteria of 'dq' regardless of case; all with the exception of the missing directory, hence leaving no files to Search since they have not been added to the collection.

The wildcard formatting doesn't seem to be a problem either, since there are folders both 'dq' and 'DQ' that are added to the collection. I've even tried changing the name of the subdirectory. In addition, the subdirectory before and after are being added to the collection. Its as if the subdirectory might as well not exist. I'm stumped.

Hi

Where is the folder called 'dq' ?
Not in this screen capture

Hi,

So sorry for you, but at home the search works perfectly with the "dq files" folder

What criteria do you enter in the 2 dialog boxes ?

Is folder ownership not over hidden ?

Yes very frustrating for me since it makes no sense. There is no difference in ownership or hidden files/folders.
The criteria I input into the dialog boxes are: 1) dq 2) Benzene
Below are all the files not being collected. The image on the right are the files within 'raw text data'