Associer une extension a un fichier (sans api)
Contenu du snippet
Permet d'associer une extension à un fichier executable (ne écrivant bien sûr dans la base de registre)
SANS API!!
Ti£oi$
SANS API!!
Ti£oi$
Source / Exemple :
'Par exemple:
'Association ".jpg", "Fichier JPG", "C:\Program Files\Accessoires\MSPAINT.EXE"
Public Sub Association(EXT As String, FileType As String, FileName As String)
On Error Resume Next
Dim b As Object
Set b = CreateObject("wscript.shell")
b.regwrite "HKCR\" & EXT & "\", FileType
b.regwrite "HKCR\" & FileType & "\", "MY file"
b.regwrite "HKCR\" & FileType & "\DefaultIcon\", FileName
b.regwrite "HKCR\" & FileType & "\shell\open\command\", FileName & " %L"
b.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\Application"
b.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\Application", FileName
b.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\OpenWithList\"
b.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\OpenWithList\a", FileName
End Sub
A voir également
- Associer une extension a un fichier (sans api)
- Fichier json - Conseils pratiques -Javascript
- Créer une extension firefox - Conseils pratiques -Javascript
- Api sms php - Forum PHP
- Api google maps - Conseils pratiques -PHP
- Application sms avec php - Forum PHP
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.