Loop through folder and find files with specific name

[sharky12345]

I need to loop through a specific folder and find all files that have the phrase '(Full)' in the filename.

If it finds I file I need it to run some code that's yet to be written.

I've searched the net and can't find anything that does what I though would be a simple task - can anyone help?

 

[JLGWhiz]

This is a generic structure for looping through a directory for files. Note that 'Full' has an asterisk before and after, If Full will always be the fist word of the file name, remove the first asterisk, esle those files will not be returned. Same if the word 'Full' is always the last word of the file name, remove the asterisk after the word 'Full'. The asterisk is a wildcard for data that should be there. VBA then expects something to be there if the asterisk is used. If the asterisk is there but the file has no data there, then VBA sees that as a mismatch and ignores it. So the asterisks should be used to represent the configuration of your file names. The code below assumes data preceding and following the word 'Full'.

Sub getFiles()
Dim fName As String, fPath As String, wb As Workbook
fPath = ThisWorkbook.Path 'substitute actual path is not in same directory as host workbook.
If Right(fPath, 1) <> "\" Then fPath = fPath & "\"
fName = Dir(fPath & "*Full*.xls*")
	Do While fName <> ""
		Set wb = Workbooks.Open fPath & fName
		'enter yet to be written code here
		wb.Close 'True or False to either save or not save workbook after code runs.
		fName = Dir
	Loop
End Sub

 

[sharky12345]

Hi, and thanks - however, the following line is highlighted in red and I don't know why;

Set wb = Workbooks.Open fPath & fName

 

[JLGWhiz]

Hi, and thanks - however, the following line is highlighted in red and I don't know why;

Set wb = Workbooks.Open fPath & fName

Should be:

Set wb = Workbooks.Open(fPath & fName)

Parentheses are needed when the equal sign is used to set a varible. My oversight.

 

[sharky12345]

No problem - thanks!

 

[JLGWhiz]

No problem - thanks!

You're welcome,
Regards, JLG