Sjekk hvilket operativsystem som benyttes

Funksjonen nedenfor returnerer True dersom operativsystemet som benyttes er 32bit.

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

Sub TestOSis32BIT()
    If OSis32BIT Then
        MsgBox "Du benytter et 32bit operativsystem", , _
            Application.OperatingSystem
    Else
        MsgBox "Du benytter ikke et 32bit operativsystem", , _
            Application.OperatingSystem
    End If
End Sub

Dokumentet er sist oppdatert 1999-08-16 12:35:22 Utskriftsvennlig versjon