Créer un raccourci vers un dossier

Version imprimable

16/03/2012, 10h57
GCAccess

Créer un raccourci vers un dossier

Salut à tous,

J'ai créé une petite application que j'utilise pour gérer des commandes. À chaque commande entrée, un dossier est créé en fonction des informations entrées dans le formulaire selon le schéma suivant :

D:/Commande/Année/Client/Ref

Pour ça, j'utilise le code suivant qui marche très bien :

Code:

MakeSureDirectoryPathExists "D:\Commande\" & DatePart("yyyy", Me.DateCommande) & "\" & Me.Client & "\" & Me.RefCommande & "\"

Ce que je voudrais faire maintenant, c'est qu'après la création du dossier, un raccourci vers ce même dossier soit créé dans un répertoire défini, disons "Bureau\raccourci", et que le raccourci porte seulement la réf. de la commande.

En gros, je souhaiterais avoir dans mon répertoire "raccourcis", les raccourcis vers chaque commande selon leur référence, genre:
2012-01
2012-02
2012-03
...

J'ai fouiné un peu partout, mais j'ai pas trouvé comment créé le raccourci souhaité...
Quelqu'un peut-il m'aider ?

Merci par avance !

Guillaume

Bonjour,

je n'ai pas fouillé la FAQ ni les sources qui contiennent sûrement de quoi créer un raccourci (la honte sur moi !), mais, en bref,
- ajoute une référence à WsShell : Windows Script Host Object Model
Dans ta fonction,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim WshShell as IWshRuntimeLibrary.WsShell Dim MyShortcut as IWshRuntimeLibrary.WshShortcut Set WsSHell = New IWshRuntimeLibrary.WsShell Set MyShortcut = WsShell.CreateShortcut(Emplacement & "\" & NomRaccourci & ".lnk" With MyShortcut .TargetPath = "Chemin et nom de la cible" 'le dossier ou fichier à ouvrir, l'application à lancer... .WorkingDirectory = "Chemin de la cible" '.Arguments = ... 'inutile dans ton cas .IconLocation = "emplacement + nom de l'icône dans ton dossier 'images'" 'et toutes autres propriétés du raccourci... .Save End With
- Pour l'emplacement sur le bureau, tu peux faire un GetDesktopDir()... ou GetSpecialFolders...
- Pour le supprimer, si besoin, un simple Kill...

16/03/2012, 15h01
GCAccess

Merci !

Merci Papy Turbo !
Après quelques petits changements, je suis enfin arrivé à obtenir ce que je voulais. J'avais effectivement déjà vu ce fameux WshShell, mais je n'avais jamais réussi à le faire marcher comme je voulais.

Encore merci !
Guillaume

:oops:, merci, Flush : faute de frappe dans le Dim ci-dessus, remplacer [Dim WshShell] par [Dim WsShell] (ou l'inverse, pourvu que la variable ait le nom déclaré ! :aie:)
Citation:
Envoyé par Papy Turbo
- ajoute une référence à WsShell : Windows Script Host Object Model
Dans ta fonction,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim WsShell as IWshRuntimeLibrary.WsShell Dim MyShortcut as IWshRuntimeLibrary.WshShortcut Set WsSHell = New IWshRuntimeLibrary.WsShell Set MyShortcut = WsShell.CreateShortcut(Emplacement & "\" & NomRaccourci & ".lnk" With MyShortcut .TargetPath = "Chemin et nom de la cible" 'le dossier ou fichier à ouvrir, l'application à lancer... .WorkingDirectory = "Chemin de la cible" '.Arguments = ... 'inutile dans ton cas .IconLocation = "emplacement + nom de l'icône dans ton dossier 'images', dans un .exe, etc." 'et toutes autres propriétés du raccourci... .Save End With
- Pour l'emplacement sur le bureau, tu peux faire un GetDesktopDir()... ou GetSpecialFolders...
- Pour le supprimer, si besoin, un simple Kill...
Bonnes fêtes à tous...