renaming destination database 1

[samotek]

can i rename a database with a code taking the next number available?
I am copying a database with the help of the following function :

Public Function copydb()
Dim strSource As String
Dim strDest As String
strSource = "C:\BE\db1.mdb"
strDest = "C:\BE\Archive.mdb"
FileCopy strSource, strDest
End Function

My question is, is it possible the string source for the next
copy to be db2, db3, etc?
If it is not possible is it possible with the current date ?

 

[JerryKlmns]

strDest = "C:\BE\db" & format(Date(),"yyyymmdd") & ".mdb"

 

[samotek]

Thank you !!!! Wonderful !!