【Access源码】巧妙判断操作系统和Office是32位还是64位；判断操作系统位数的VBA代码；判断Access位数的VBA代码；获取操作系统是32位还是64位的功能；获取Access是32位还是64位的功能

时　间:2019-01-17 12:45:17
作　者:红尘如烟   ID：10768  城市：成都
摘　要:巧妙判断操作系统和Office是32位还是64位。
正　文:

由于64位电脑的大量使用，而很多应用软件仍然是32位，导致现在以及将来很长一段时间，软件都会在32位或64位环境下使用。

而由于32位和64位的差异，我们必须分别进行处理，这时就需要判断操作系统及Office的位数。

实际上判断操作系统和Office是多少位，只要找对思路了，实现起来就很简单。

函数源码：

'判断操作系统是32位还是64位
Public Function OsBit() As Long
    If Dir(Environ("windir") & "\SysWOW64", vbDirectory) <> "" Then
        OsBit = 64
    Else
        OsBit = 32
    End If
End Function

'判断Office是32位还是64位
Public Function OfficeBit() As Long
  #If Win64 Then
      OfficeBit = 64
  #Else
      OfficeBit = 32
  #End If
End Function


'测试代码
Sub Test()
    MsgBox "你当前使用的是 " & OsBit() & " 位操作系统，" & OfficeBit() & " 位Office！"
End Sub

附件：

点击下载示例附件