match part of item with whole file name in directory

Mussala

Revised Answer 27 July 2023

The first file ending with the last part of the ListBox selection (e,g. PR_000001) can be found by

1. making the variable Sk become the last part of theListBox selection AFTER the last space ( & .pdf)
2. changing the If test  to look at the end of the filename only, which would get PR_000001.pdf and Inv PR_000001 (say).

Changes are shown in bold in the code extract below:

Private Sub ListBox1_Click()

<< existting code>>
        ' set public file name to selection
        Sk = LCase(.List(.ListIndex, 1))
        ' trim to last part (after last space) & .pdf
        Sk = Right(Sk, Len(Sk) - InStrRev(Sk, " ")) & ".pdf"
        ' loop through top level folder
        For Each objSubFile In objFolder.Files
            'If LCase(objSubFile.Name) = Sk Then
            'see if end of filename matches
            If Right(objSubFile.Name, Len(Sk)) = Sk Then
                ' if found, write file path to found variable
                Fnd = objSubFile.Path
                'stop looking
                Exit For
            End If
        Next objSubFile
<< existing code>>

The If test in Function LoopEachFolder(fldFolder As Object, Sk As String) changes likewise.

I've done that in the attached revised file.

Hope this is what you meant in your question.