RACCOURCI SUR LE BUREAU EN VB6

cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 18 sept. 2003 à 21:54
cs_patrice_b Messages postés 30 Date d'inscription mardi 3 janvier 2006 Statut Membre Dernière intervention 1 mars 2009 - 23 mai 2006 à 18:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8570-raccourci-sur-le-bureau-en-vb6

cs_patrice_b Messages postés 30 Date d'inscription mardi 3 janvier 2006 Statut Membre Dernière intervention 1 mars 2009
23 mai 2006 à 18:01
Excellente source.
cs_Nicolas75 Messages postés 27 Date d'inscription lundi 26 janvier 2004 Statut Membre Dernière intervention 4 février 2008
14 févr. 2004 à 18:27
Salut Rene38

Mille merci pour ta réponse.

J'ai essayé et ça marche super.

A+
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
13 févr. 2004 à 02:05
... et j'ai oublié l'explication :
le chemin du raccourci n'est pas correct. La fonction OSfCreateShellLink renvoie donc RetourFonction = 0
Il faudrait tester la valeur de RetourFonction :
- 0 => ça n'a pas marché (le raccourci n'est pas créé)
- autre que 0 => le raccourci a été créé.
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
13 févr. 2004 à 01:57
Bonsoir Nicolas75

petites modifications à faire dans ton cas :

1) Comme tu l'as trouvé toi-même,
Réponse = SHGetSpecialFolderPath(Me.hWnd, NomDuBureau, &H7, 0)
7 pour le dossier de démarrage à la place de 16 (&H10) pour le bureau.

2) 3 lignes avant la fin du Sub, remplacer

Bureau = "..\.." & Mid$(NomDuBureau, Compteur)

par

Bureau = Mid$(NomDuBureau, Compteur)
cs_Nicolas75 Messages postés 27 Date d'inscription lundi 26 janvier 2004 Statut Membre Dernière intervention 4 février 2008
12 févr. 2004 à 18:49
Salut

Effectivement source excellente. Mais j'ai tout de même un petit souci.

Lorsque je change la valeur 16 pour pouvoir créer mon raccourci dans le dossier Démarrage de windows (Valeur 7 ou 24) il ne se passe absolument rien.

Pas de message d'erreur et pas de raccourci non plus.

Quelqu'un peut t'il m'expliquer ?

J'utilise windows 2000 Pro et VB6


Mille merci
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
22 sept. 2003 à 09:01
Salut Rene38,

C'est une superbe source en effet qui est vraiment pratique !

Ca vaut 9/10 !

DarK Sidious
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
19 sept. 2003 à 04:46
Mise à jour tenant compte de vos suggestions.
sauf test d'existence : si on crée 2 fois le même (même nom, même cible, mêmes arguments), le dernier écrase le précédent.
cs_TheHacker Messages postés 442 Date d'inscription samedi 23 novembre 2002 Statut Membre Dernière intervention 19 octobre 2005
18 sept. 2003 à 22:23
salut, ouai c sympa comme prog, mais j'comprend pas trop pourquoi il faut indiquer ".../.../Bureau" ??? comment il connait le repertoire du bureau alors ??? il ets un peu bizarre cet API, tu peux expliquer les arguments a passer en parametres stp, merci @+
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 2
18 sept. 2003 à 21:54
Salut Rene38

Voilà une idée qu'elle est bonne...

J'ai téléchargé ta source et je sens qu'elle va souvent me servir...

Toutefois, voici 2 sugestions :
- Ajouter un second TextBox qui permettrait d'indiquer le nom que l'on voudrait voir apparaître sous le raccourcis (je n'aime pas les "Application.EXE") ;
- Ne vaudrait-il pas mieux tester l'existence d'un raccourcis avant de le créer ?

9/10 parce que... ;-)
Rejoignez-nous