File_FirstFound

Gets first file found matches a wildcards mask, using Dir()

CodeFunctionName
What is this?

Public

Tested

Original Work
Function File_FirstFound(FileN, Optional InFolder = "This", Optional Hidden _
As Boolean = False, Optional System As Boolean = False, _
Optional Directory As Boolean = False)
If InFolder = "This" Then InFolder = ThisWorkbook.Path ' In VBA-Excel only
If Hidden Then Attr = Attr + vbHidden
If System Then Attr = Attr + vbSystem
If Directory Then Attr = Attr + vbDirectory
File_FirstFound = ""
On Error Exit Function
di = Dir(FixPath(InFolder) & FileN, Attr)
File_FirstFound = di
On Error GoTo 0
End Function

FileN, Optional InFolder, Optional Hidden, Optional System, Optional Directory

Views 3,173

Downloads 1,255

CodeID
DB ID