Code Snippet "VBA allgemein"

Aktuelle Programm-Version aus Registry auslesen und ändern

Sub showAppVersion()
    Dim WshShell
    Set WshShell = CreateObject("WScript.Shell")
    Debug.Print WshShell.RegRead("HKCR\Excel.Application\CurVer\")
    Debug.Print WshShell.RegRead("HKCR\Word.Application\CurVer\")
    Debug.Print "Vorher: " & WshShell.RegRead("HKCR\Access.Application\CurVer\")
    WshShell.RegWrite "HKCR\Access.Application\CurVer\", "Access.Application.11", "REG_SZ"
    Debug.Print "Nachher: " & WshShell.RegRead("HKCR\Access.Application\CurVer\")
End Sub