Dim WshShell, bKey, cKey Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKEY_CLASSES_ROOT\.iso\DefaultIcon", "C:\Users\Public\Pictures\Paul !\Icône\iso.ico", "REG_SZ" WshShell.RegWrite "HKEY_CLASSES_ROOT\.iso\(par défaut)", "CD d'installation", "REG_SZ" MsgBox "Ecriture dans les clés de registre effectuée avec succès !", vbInformation, "SUCCESS !" bKey = WshShell.RegRead("HKEY_CLASSES_ROOT\.iso\DefaultIcon") MsgBox WshShell.RegRead("HKEY_CLASSES_ROOT\.iso\DefaultIcon") cKey = WshShell.RegRead("HKEY_CLASSES_ROOT\.iso\(par défaut)") MsgBox WshShell.RegRead("HKEY_CLASSES_ROOT\.iso\(par défaut)")
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.