Database

<br />
Function NewestFile(Directory, FileSpec)<br />
' Returns the name of the most recent file in a Directory<br />
' That matches the FileSpec (e.g., "*.xls").<br />
' Returns an empty string if the directory does not exist or<br />
' it contains no matching files<br />
    Dim FileName As String<br />
    Dim MostRecentFile As String<br />
    Dim MostRecentDate As Date<br />
    If Right(Directory, 1) <> "\" Then Directory = Directory & "\"<br />
    FileName = Dir(Directory & FileSpec, 0)<br />
    If FileName <> "" Then<br />
        MostRecentFile = FileName<br />
        MostRecentDate = FileDateTime(Directory & FileName)<br />
        Do While FileName <> ""<br />
            If FileDateTime(Directory & FileName) > MostRecentDate Then<br />
                 MostRecentFile = FileName<br />
                 MostRecentDate = FileDateTime(Directory & FileName)<br />
             End If<br />
             FileName = Dir<br />
        Loop<br />
    End If<br />
    NewestFile = MostRecentFile<br />
    <br />
End Function<br />