64bit/32bit durch LoadedAssemblies

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

Imports System.Collections.ObjectModel

       
 '''''' <summary>
 '''''' Speicher ob 64 oder 32 bit
 '''''' </summary>
 '''''' <remarks></remarks>
Public IsOS64bit As Boolean = False

'''''' <summary>        
'''''' prueft auf 64 oder 32 OS
'''''' </summary>
'''''' <returns></returns>
'''''' <remarks></remarks>
Public Function OS64Bit() As Boolean
            Try
                For Each ra As Reflection.Assembly In My.Application.Info.LoadedAssemblies
                    If ra.Location.ToLower.Contains("framework64") Then
                        IsOS64bit = True
                         = True
                        Exit For
                    Else
                        IsOS64bit = False
                    End If
                Next
            Catch ex As Exception
                IsOS64bit = False
                
            End Try
End Function