Changer le dossier d'installation des programmes par défaut

Commenter

Contenu du snippet 

'**
'* Change default Windows's install directory.
'* 
'* @author David Ansermot <david.ansermot [at] gmail [dot] com>
'* @date 2009-01-02
'* @version 1.0
'* @copyright (C) Ansermot David 2009
'* @license GNU/GPL
'**
' Variables declaration
dim oWsh, Key, Path
' Getting new path
Path = inputbox("Entrer le nouveau chemin","Nouveau chemin","C:\Program Files")
' If path is set
if Path <> "" then
    ' Get regedit modifier object
    Set oWsh = CreateObject("WScript.Shell")
    ' Regedit key
    Key = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir"
    ' Write key's new value
    oWsh.RegWrite Key, Path, "REG_SZ"
    ' Prompt success message
    msgBox "Nouvelle valeur : " & oWsh.RegRead Key
    ' Clear memory
    Set oWsh = Nothing
    
end if

Compatibilité : VBA, VBScript

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_marm0tte)