How to detect an .ade database programatically - Access 2003

[Ray]

For years I have used a code snippet to detect if an Access database was and
MDE or an MDB.

I cant find out how to do that for an .ade

Is it possible?

 

[Chris O'C via AccessMonster.com]

Check the project's mde property. Yes, really.


Public Sub testIsADE()
Debug.Print isADE("c:\data\myproj.ade")
End Sub


Public Function isADE(sPath As String) As Boolean
On Error Resume Next

Dim app As Access.Application
Dim strMDE As String

Set app = CreateObject("Access.Application")
app.OpenCurrentDatabase sPath, False
strMDE = app.CurrentProject.Properties("MDE")
isADE = (Err.Number = 0 And strMDE = "T")
app.Quit
Set app = Nothing
End Function

Chris

 

[Allen Browne]

See GetFileFormat() form this page:
http://allenbrowne.com/ser-53code.html#GetFileFormat

Identifies the file format version (97 - 2007), type (MD*, AD*, ACCD*), and
whether compiled or not (*B, *E.)