On Jan 24, 4:43 am, "Deano" <de...@mailinator.comwrote:
"Tony Toews [MVP]" <tto...@telusplanet.netwrote in messagenews:li********************************@4ax .com...Salad <o...@vinegar.comwrote:
>Any code for detected Vista when I start the database? Nothing shows
up in
>a search of this group, though feel free to correct me.
>Maybe this link has the info you need.
>http://www.mvps.org/access/api/api0055.htm
It's a bit out of date. I'm sure there's something newer somewhere at
vbnet.mvps.org
Problem is I'm not sure I can convert vb.net code into VBA, certainly not
this sort of thing. If anyone has then please post.
Does this help?
Private Declare Function GetFileVersionInfo& Lib "Version" _
Alias "GetFileVersionInfoA" (ByVal FileName$, ByVal lptr&, _
ByVal lSize&, lpvData As Any)
Public Function Version$(ByVal FullPath$)
'2003/02/26 attribution to David Epson
Dim iBuf%(0 To 99)
GetFileVersionInfo FullPath, 0&, 200, iBuf(0)
Version = iBuf(25) & "." & iBuf(24) & "." & iBuf(27) & "." &
iBuf(26)
End Function
Sub test()
Debug.Print Version(Environ$("WINDIR") & "\Explorer.Exe")
End Sub