Application.FileSearch 1

[rgbanse]

I'm using Application.FileSearch to find all mdb's stored on a series of hard drives. No problme here but also need to know what version of access each db is. We have 97 thru current.
thx
RGB

 

[Ed2020]

You can use the following funtion to return the version number:

Public Function JetVer(ByVal strPath As String) As Double
On Error GoTo TrapErr

Dim dbs As DAO.Database

Set dbs = OpenDatabase(strPath)

JetVer = dbs.Version

ExitHere:
Exit Function

TrapErr:
Select Case Err.Number
    Case 3033 'Secured database
        JetVer = 0
    Case Else
        JetVer = 9999
End Select
Resume ExitHere

End Function

The version numbers correspond like this:

2 = Access 2
3 = Access 97
4 = Access 2000
and so on...

Ed Metcalfe.

Please do not feed the trolls.....

 

[Ed2020]

One further point:

You will have problems if the database is secured and you do not know the username/password. In this case you can guess the database version by searching for an MDW file in the same directory and get the version number of that (using the same function I supplied in my previous post).

This method isn't 100% accurate as the MDW file may not be the same version as the database it is used to open, or the MDW file may not belong to the MDB you have found.

Ed Metcalfe.

Please do not feed the trolls.....

 

[Remou]

Would it not be better to get the Access Version, rather than the Jet version (

http://support.microsoft.com/kb/239114)

?

[tt]strProgramVersion = DB.Properties("AccessVersion")[/tt]