ERLANDSEN DATA CONSULTING Excel & VBA Tips   Informasjon på norsk / Information in Norwegian

These pages are no longer updated and are only available for archive purposes.

Click here to visit the pages with updated information.

Determine the type of operating system

The function below will return True if the operating system in use is 32 bit.

Function OSis32BIT() As Boolean
    OSis32BIT = False
    If InStr(Application.OperatingSystem, "32-bit") Then 
        OSis32BIT = True
    End If
End Function

Sub TestOSis32BIT()
    If OSis32BIT Then
        MsgBox "You use a 32bit operating system", , _
            Application.OperatingSystem
    Else
        MsgBox "You don't use a 32bit operating system", , _
            Application.OperatingSystem
    End If
End Sub

 

Document last updated 1999-08-16 12:49:52      Printerfriendly version

 

Erlandsen Data Consulting     http://www.erlandsendata.no/   
Excel & VBA Tips   Copyright ©1999-2017    Ole P. Erlandsen   All rights reserved
E-mail Contact Address