1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Associer une extension a un fichier (sans api)

Associer une extension a un fichier (sans api)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 245 fois - Téléchargée 44 fois

Commenter

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 2107 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
11 janv. 2009 à 00:35
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
22 janv. 2008 à 15:08
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 60 Date d'inscription dimanche 9 octobre 2005 Statut Membre Dernière intervention 30 novembre 2010
10 janv. 2007 à 19:56
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
27 oct. 2004 à 17:54
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
19 août 2002 à 09:01
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" … ;-)
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 (Tilois)