Path with the last day (Access 2000)

[peljo]

I am opening sucesfully a database with the following function
Public Const CnstSurvey = "C:BEsurvey.mdb"
Public Function OpenSurvey()
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase CnstSurvey
End Function
I want however to have databases ending with different days, for example
Survey20060327
or
Survey20060326
and to open that database which has the latest date. Is it possible ?

[HansV]

Try this:
<code>
' Path including backslash
Public Const strPath = "C:BE"

Public Sub OpenSurvey()
Dim appAccess As Access.Application
Dim strFile As String
Dim strLatest As String

strFile = Dir(strPath & "Survey*.mdb")
' Loop through the files in the folder
Do While Not strFile = ""
' See if we have a later file
If strFile > strLatest Then
strLatest = strFile
End If
' And on to the next
strFile = Dir
Loop

' Did we find a file?
If Not strLatest = "" Then
' If so, open it
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase(strPath & strLatest)
End If
End Sub</code>