Discussion :

[Duhamel]

Bonjour,

tout ou presque est dans le titre.
Je suis en vb5 sp3
Oui je sais mais pas le choix.

Mon pb ? Je souhaite installer l'icone d'un programme sur le bureau sur des systèmes W2k avec du code VB5, et accessoirement dans le menu démarrer.

Comment je peux faire ça, sans passer par un setup d'installation ?

Merci de votre aide.

G.D.

[jmfmarques]

Je crois que tu veux dire "raccourcis"...

[Duhamel]

Exactement !

[jmfmarques]

Exactement !

Il est bon d'appeler les choses par leur nom exact.

Pour ce qui est de la création de tels raccourcis, c'était en effet sans problèmes avec VB jusqu'à WIN 2K...
Depuis, il faut faire appel à l'API IShellLink et c'est plus compliqué (je n'ai pas fini de la décortiquer... alors que j'ai commencé il y a un mois )

Je crains fort que, à moins que quelqu'un d'autre ait déjà abouti, tu ne doives te montrer aussi patient que moi (à moins que tu ne veuilles m'aider en cherchant également de ton côté comment utiliser cette API qui, de surcroît, doit "travailler" en parallèle avec une autre API, semble-t-il)

[SilkyRoad]

bonsoir

je n'ai pas W2K pour tester , mais tu peux essayer cette macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'creer un raccourci bureau
'necessite d'activer la reference Windows Script Host Object Model
'
'fonctionne en VB et VBA
'
Dim WshShell As IWshRuntimeLibrary.WshShell
Dim Raccourci As IWshRuntimeLibrary.WshShortcut
Dim dirBureau As String
 
Set WshShell = CreateObject("WScript.Shell")
dirBureau = WshShell.SpecialFolders("Desktop")
 
Set Raccourci = WshShell.createShortcut(dirBureau & "\monFichier.lnk")
Raccourci.TargetPath = "C:\Documents and Settings\michel\dossier\monFichier.txt"
Raccourci.WindowStyle = 1
'Raccourci.IconLocation = "C:\dating.ico" 'attribuer un icone
Raccourci.Save

bonne soiree
michel

[Duhamel]

Salut,

merci pour la réponse, en revanche, à partir de VB5 je n'ai pas accès à l'interface IWshRuntimeLibrary.
Pour cela je suppose que je dois inclure l'accès à mon projet d'un composant, peux-tu me spécifier de quel objet il s'agit ?

[SilkyRoad]

bonjour

je n'ai malheureusement pas assez de connaissances en VB pour t'aider à ce sujet ...désolé ...


bonne soiree
michel

[ThierryAIM]

recherche le fichier wshom.ocx sur ta machine

Si tu le trouves, tu dois pouvoir sélectionner la référence indiquée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

necessite d'activer la reference Windows Script Host Object Model

[Duhamel]

C'est tout ce qu'il me fallait.

Merci à vous.