Associer une extension a un fichier (sans api)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 753 fois - Téléchargée 42 fois

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$

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

Ajouter un commentaire

Commentaires

cs_PaTaTe
Messages postés
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
-
prévoir une fonction inverse (retirer la dite extension) peut être utile en cas de désinstallation du programme.
freeman151248
Messages postés
16
Date d'inscription
vendredi 19 mai 2006
Statut
Membre
Dernière intervention
31 mars 2011
-
Bonjour,

je suis d'accord c'est bien cool comme source. Par contre j'ai une petite question :
-Je n'ai pas l'affichage par défaut de l'icone de l'application à laquelle ce rattache le fichier?

-j'ai la bonne icone si je passe par-> ouvrir avec et en cochant-> toujours utiliser ce programme ....
d'ou cela peut-il venir?

merci encore
vbmarh
Messages postés
61
Date d'inscription
dimanche 9 octobre 2005
Statut
Membre
Dernière intervention
30 novembre 2010
-
un source aurait bien sauver car jouer avec les registres n é pas mon point fort !!!!!
Ou mettre ces lignes SVP ?
# 'Par exemple:
# 'Association ".jpg", "Fichier JPG", "C:\Program Files\Accessoires\MSPAINT.EXE"
help !
MadeInChezmoi
Messages postés
4
Date d'inscription
dimanche 10 octobre 2004
Statut
Membre
Dernière intervention
27 octobre 2004
-
C'est bien ? C'est BIEN ! qu'il dis l'autre ! C'est pas bien c'est génial ! pardon... GENIAL ! Je me tus à pondre un code efficace comme celui-là depuis 3 semaines et lui il dis que c bien ! Toute mes felicitations ! J'ai trouvé d'autre codes mais bcp plus longs et moins faciles à exploiter ! Pour un amateur comme moi c'est plutot cool etant donné qu'il n'y a presque rien a modifier ds ce code en fonction du programme...MERCI ! Tu m'épargnes de longues heures de travail !

A+
Icem@n
Messages postés
34
Date d'inscription
jeudi 29 juin 2000
Statut
Membre
Dernière intervention
27 octobre 2003
-
C'est bien mais si quelqu'un avais une api qui permets de le faire ;-) je serrais très intéressé ..
Un truc à approfondir peut-être c'est la command dos® "ASSOC" … ;-)

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.