Gets first file found matches a wildcards mask, using Dir()
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
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