Il pemet de creer de nouvelle Extension rapidement Juste avec un .vbs
Source / Exemple :
Dim WS
Set WS = WScript.CreateObject("WScript.Shell")
WS.RegWrite "HKCR\.(Extension)\", "(Extension)"
WS.RegWrite "HKCR\(Extension)\", "(Type)"
WS.RegWrite "HKCR\(Extension)\AlwaysShowExt", ""
WS.RegWrite "HKCR\(Extension)\EditFlags", 0, "REG_DWORD"
WS.RegWrite "HKCR\(Extension)\BrowserFlags", 8, "REG_DWORD"
WS.RegWrite "HKCR\(Extension)\DefaultIcon\", "(CheminIco)"
WS.RegWrite "HKCR\(Extension)\Shell\", "(DefaultCommand)"
WS.RegWrite "HKCR\(Extension)\Shell\Command1\", "" 'Command1=(DefaultCommand)
WS.RegWrite "HKCR\(Extension)\Shell\Command1\command\", "(cheminprog)"
'(Extension)= ex: exe
'(Type)= Type de fichier
'(cheminProg)= ex: c:\ProgramFiles\Accessoire\Wordpad.exe p.s. prog pour cette commande la ex: Open
'(DefaultProg)
'(CheminIco)= ex c:\MonProg\IcoExt1.ico p.s Icone de se fichier
'=========================================
'New Version
'=========================================
Dim WS
Set WS = WScript.CreateObject("WScript.Shell")
dim EXT
dim TYPE
EXT = inpoutbox("Extension : ex : exe", "Nouvelle Extension")
Path = "HKCR\" & EXT
WS.RegWrite "HKCR\." &EXT & "\", EXT
TYPE = inputbox ("Type : ex : text", "Type"
WS.RegWrite "HKCR\" & "." EXT"\", TYPE
ICO = inputbox ("Chemin de L'icone", "Icone"
WS.RegWrite Path & "\DefaultIcon\", ICO
DC = inputbox("Commande par Default", "Commande par Default", "Open")
CMD = inputbox("Application pour la commande " & DC, "Application", "Notepad.exe"
WS.RegWrite Path & "\Shell\", DC
WS.RegWrite Path & "\Shell\" & DC & "\", CMD 'Command1=(DefaultCommand)
WS.RegWrite Path & "\Shell\" & DC & "\command\", CMD
'(Type)= Type de fichier
'(cheminProg)= ex: c:\ProgramFiles\Accessoire\Wordpad.exe p.s. prog pour cette commande la ex: Open
'(DefaultProg)
'(CheminIco)= ex c:\MonProg\IcoExt1.ico p.s Icone de se fichier
Conclusion :
Mon Soft sera mis a jour d'en un jour ou deux jour
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.