Public Function GetLatestFile(ByVal vsFolder As String, Optional ByRef vsFilter As String = "*") As String
Dim sFileName As String
Dim dLatest As Date
If Right$(vsFolder, 1) <> "\" Then
vsFolder = vsFolder & "\"
End If
sFileName = Dir$(vsFolder & vsFilter)
Do While LenB(sFileName)
If LenB(GetLatestFile) = 0 Or dLatest < FileDateTime(vsFolder & sFileName) Then
GetLatestFile = sFileName
dLatest = FileDateTime(vsFolder & sFileName)
End If
sFileName = Dir$()
Loop
End Function