change to const

This commit is contained in:
2020-12-04 11:10:57 +01:00
parent 191b2fc319
commit 8fd06a729c

View File

@@ -33,10 +33,10 @@ Namespace Runtime
If t Is Nothing Then If t Is Nothing Then
Dim windir = Environment.GetEnvironmentVariable("windir") Dim windir = Environment.GetEnvironmentVariable("windir")
Dim ostypeDirWine = "Z:\proc\sys\kernel\ostype" Const ostypeDirWine = "Z:\proc\sys\kernel\ostype"
Dim ostypeDirNative = "/proc/sys/kernel/ostype" Const ostypeDirNative = "/proc/sys/kernel/ostype"
Dim systemVersionWine = "Z:\System\Library\CoreServices\SystemVersion.plist" Const systemVersionWine = "Z:\System\Library\CoreServices\SystemVersion.plist"
Dim systemVersionNative = "/System/Library/CoreServices/SystemVersion.plist" Const systemVersionNative = "/System/Library/CoreServices/SystemVersion.plist"
If File.Exists(ostypeDirWine) Then ' Linux using wine If File.Exists(ostypeDirWine) Then ' Linux using wine
Dim osTypeString As String = File.ReadAllText(ostypeDirWine) Dim osTypeString As String = File.ReadAllText(ostypeDirWine)