فهمیدن نوع سیستم عامل

[Dr_bass]

برنامه ای می خوام که نوع سیستم عامل رو تو یه متغیر بریزه

[aidin1386]

با این دستور می شه محل قرار گیری سیستم عامل های ویندوز رو مشخص کرد اما نه کاری که شما می خواین. شاید با یک سری تغییرات بشه. باید خودتون تلاش کنین.

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
"GetWindowsDirectoryA" (ByVal lpBuffer as String, ByVal nSize as Long) as Long
Private Function Winfolder() as String
Dim strsave as String
strsave = String(255, Chr$(0))
Winfolder = Left$(strsave, GetWindowsDirectory(strsave, Len(strsave)))
End Function
Private Sub Form_Load()
MsgBox Winfolder
End Sub

[ƒxmahdi]

این نمونه را ببینید

[DoctorJay]

یه راه ساده که من همیشه از اون واسه موارد مشابه استفاده می کنم .

یه جورایی همون استخراج اطلاعات از توی معادل دستور Set توی DOS


For i = 15 To 25
If Left(Environ(i), 2) = "OS" Then OSNum = i
Next
OS = Mid$(Environ(OSNum), 4)