Connaitre sa version de Windows en vba

Question

Bonjour,
J'aimerais savoir si il est possible de récupérer sa version de windows en vba (pour pouvoir ensuite spécifier dans un chemin c:Windows ou c:\WINNT). Moi perso je pensé utiliser la base de registre en lançant un getsetting mais je ne sait pas quelle info viser ! 
donc si vous avez des infos sur la question n'hesitez pas !

BasicInstinct · Answer

salut,

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

    Dim Path As String, strSave As String
    strSave = String(200, Chr$(0))
    Path = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave)))

 :clown)  BasicInstinct  :clown)

Grippen · Answer

comment ça marche ton truc ?
Il faut déclarer une sub ?
dsl je débute !

BasicInstinct · Answer

'dans les declarations generales de ta form

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

dans ton  form_load()
Dim Path As String, strSave As String
strSave = String(200, Chr$(0))
Path = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave)))

 :clown)  BasicInstinct  :clown)

Grippen · Answer

ok merci,
mais cependant un problème demeure:
impossible de tester sur la valeur ainsi récupérée (auncun des if ne fonctionne, après essai sous les deux environnements)

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Sub toto()
    
Dim Path As String, strSave As String
strSave = String(200, Chr$(0))
Path = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave)))
MsgBox strSave

If strSave = "C:\WINNT" Then
    var = ThisWorkbook.Path & "" & "Aide.txt"
    Shell (" C:\WINNT\NOTEPAD.EXE " & var), 1
End If

If strSave = "C:\WINDOWS" Then
    var = ThisWorkbook.Path & "" & "Aide.txt"
    Shell (" C:\WINDOWS\NOTEPAD.EXE " & var), 1
End If

End Sub

Voilà ! merci de me répondre !

BasicInstinct · Answer

Sub toto()

Dim Path As String, strSave As String
strSave = String(200, Chr$(0))
Path = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave)))
MsgBox strSave

'pas de if :)))
'c'est la variable Path qui connait le chemin

shell Path & "\NOTEPAD.EXE " & Path & "\Aide.txt", 1
end Sub
 :clown)  BasicInstinct  :clown)

BasicInstinct · Answer

oups

shell Path & "\NOTEPAD.EXE " & ThisWorkbook.Path & "\Aide.txt", 1

 :clown)  BasicInstinct  :clown)

Grippen · Answer

ok ça fonctionne ! merci beaucoup !

Connaitre sa version de Windows en vba

7 réponses

Discussions similaires