Check if database is open 2

[BazzaRich]

Need some simple code to check to see if database is open.

 

[longhair]

BazzaRich,
what kind of db? if ms access the just check to see if there is an .ldb file in the directory.
regards,
longhair

 

[BazzaRich]

The obvious is always the hardest to look for!

Thank you, any simple vba code for checking to see if file exixts?

 

[longhair]

BazzRich,
not exactly what you need to do but should get you started:

Set fs = Application.FileSearch
With fs
    .LookIn = "c:\test"
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
End With
For i = 1 To fs.FoundFiles.Count
    msgbox fs.FoundFiles(i)
Next i

just look in vba help for filesearch and adjust what you need to search for.
regards,
longhair

 

[PHV]

Or simpler:
If Dir("\path\to\dir\*.ldb") <> "" Then
MsgBox "Database is open"
End If

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886