J
JH
Dim SysInfo2 As System.Environment
Dim OS As String
With SysInfo2
Select Case .OSVersion
Case 4 : OS = "Win NT"
Case 5 : OS = "Win 2000"
Case 6 : OS = "Win XP"
End Select
End With
Dim OS As String
With SysInfo2
Select Case .OSVersion
Case 4 : OS = "Win NT"
Case 5 : OS = "Win 2000"
Case 6 : OS = "Win XP"
End Select
End With