Check if filename contains a portion of a string

[Kmahraz]

Hello - Looking for some to help modify the code below so that it looks for a file name that contains a string VS an exact match

Sub Run()
Dim LRow As Integer
   Dim LPath As String
   Dim LExtension As String
   Dim LContinue As Boolean
   'Initialize variables
   LContinue = True
   LRow = 2
   LPath = "C:\Users\Sophia\Downloads\New folder\"
   LExtension = ".xl*"
   'Loop through all column A values until a blank cell is found
   While LContinue
      'Found a blank cell, do not continue
      If Len(Range("A" & CStr(LRow)).Value) = 0 Then
         LContinue = False
      'Check if file exists for part number
      Else
         'Place "No" in column B if the file does NOT exist
         If Len(Dir(LPath & Range("A" & CStr(LRow)).Value & LExtension)) = 0 Then
            Range("B" & CStr(LRow)).Value = "No"
            'Place "Yes" in column B if the file does exist
         Else
            Range("B" & CStr(LRow)).Value = "Yes"
         End If
      End If
      LRow = LRow + 1
   Wend
End Sub

 

[Marc L]

Hi !

Just use * wildcard, see the example of Dir function in VBA inner help …​

 

[Kmahraz]

Hi Marc - Thank you for the hint, I tried using the Dir command as described in the link below with not much success, will give it another shot
https://www.techonthenet.com/excel/formulas/dir.php
Thank you!

 

[Kmahraz]

SOLVED
Replace

        If Len(Dir(LPath & Range("A" & CStr(LRow)).Value & LExtension)) = 0 Then

with

If Len(Dir(LPath & "*" &  Range("A" & CStr(LRow)).Value & "*" & LExtension)) = 0 Then