Editing the lookup function for each argument.

[MyHanhCB]

Hello everyone on the forum!
I found on google a function as follows.

Function FilesFoldersList(ByVal RootFolder As String, ByVal ListType As Boolean, _
                          ByVal Search As String, ByVal InSub As Boolean)
  Dim i As Long, fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  Dim sComm As String, tmp As String, str As String, tmpFile ', arrA
  On Error Resume Next
  If Right(RootFolder, 1) <> "\" Then RootFolder = RootFolder & "\"
  str = """" & RootFolder & IIf(ListType, Search, "") & """"
  With fso
    tmpFile = .GetTempName
    sComm = "DIR " & str & " /ON /B /A" & IIf(ListType, "-", "") & "D-S" & IIf(InSub, "/S", " ") & " >" & tmpFile
    CreateObject("Wscript.Shell").Run "cmd /u /c " & sComm, 0, True
    With .OpenTextFile(tmpFile, 1, , -2)
      tmp = Trim(.ReadAll)
      If Right(tmp, 2) = vbCrLf Then tmp = Left(tmp, Len(tmp) - 2)
      If Len(tmp) Then
        If InSub = False Then tmp = RootFolder & Replace(tmp, vbCrLf, vbCrLf & RootFolder)
        FilesFoldersList = Split(tmp, vbCrLf)
      End If
      '-------------------------------------------------
      .Close
    End With
  End With
  Kill tmpFile
End Function

I do the following search.....

Sub test
Dim fldPath as string, arr, db as variant
fldPath = "C:\Users\toanndq.VBD\Desktop\New folder (3)"
Arr = FilesFoldersList(fldPath, True, "CX*44??.pdf", True)
For each db in arr
Debug.Print db
Next
End sub

But the value after my search gets both
"CX123_E44a.pdf, CX123_E44b.pdf,CX123_E44aa.pdf,CX123_E44bb.pdf,CX123_E44aaa.pdf,CX123_E44bbb.pdf"
I want the find value to be just "CX123_E44aa.pdf,CX123_E44bb.pdf"
Look forward to the help

 

[Special-K99]

Your routine is calling the DIR command
This is caused by the DIR command not Excel VBA.
Given the following files:

k1.txt
k11.txt
k111.txt

DIR k?.txt returns K1.txt
DIR k??.txt returns both k1.txt and k11.txt which is the problem you are getting.

Google "windows DIR wild characters" and see if there is a way of making the ? character limited to the number of wildcharacters you are searching for.

I can't see anything obvious at present

 

[MyHanhCB]

DIR k?.txt returns K1.txt
DIR k??.txt returns both k1.txt and k11.txt which is the problem you are getting.

Yes, that's the problem I'm having. Is there any way to find the correct value (CX*44??.pdf ==> CX123_E44bb.pdf, CX123_E44aa.pdf)
The example I gave in the article above is a bit confusing. Sorry everyone

 

[Special-K99]

Am wondering if Regular Expressions may solve this?

Alternatively, pipe the DIR results to a text file and use VBA to analyse that file for the pattern you're searching for.

 

[MyHanhCB]

Am wondering if Regular Expressions may solve this?

Alternatively, pipe the DIR results to a text file and use VBA to analyse that file for the pattern you're searching for.

Yes, thanks bro, I found the solution, thanks for the feedback.