[AccessD] Determining 64-bit OS

Hi Charlotte,

All I do is look for the presence of the C:\Windows\sysWOW64 folder.  It's
not a direct check, but why would this folder exist on a 32-bit system?

Dan

Procedure:

'------------------------------
Private Sub GetWindowsVersion()

    '-- This will record the current windows version, whether the OS is 32
bit or 64 bit, and the Access version for the person logging in.

    Dim stg As String
    Dim fso As FileSystemObject
    Dim int3264 As Integer
    Dim stgWindowsVersion As String
    Dim stgAccessVersion As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists("C:\Windows\sysWOW64") = True Then
        int3264 = 64
    Else
        int3264 = 32
    End If

    stgWindowsVersion = WindowsVersion
    stgAccessVersion = Application.Version & " - " & Application.Build

    stg = "UPDATE tblPeopleMain SET" _
          & " versionWindows = '" & stgWindowsVersion & "'," _
          & " version3264 = " & int3264 & "," _
          & " versionAccess = '" & stgAccessVersion & "'" _
          & " WHERE PeopleID = " & GV.CurrentPeopleID
    CurrentDB.Execute stg, dbSeeChanges Or dbFailOnError

    Set fso = Nothing

End Sub
'-----------------------------------------

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Monday, May 27, 2013 12:31 PM
To: Access Developers discussion and problem
Subject: [AccessD] Determining 64-bit OS

This was raised in a linkedin group some of us belong to, and it's making me
irritated.  I can't find any way to reliably identify a 64-bit Win version
when running 32-bit Office.  On my machine with that configuration, the
Win64 constant is always false!  Any suggestions from the brain trust?

Charlotte
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com