Créer un raccourci vers un dossier [Résolu]

[GCAccess]

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

[Papy Turbo]

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...

[GCAccess]

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

[Papy Turbo]

, 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é ! )

Envoyé par Papy Turbo

- ajoute une référence à WsShell : Windows Script Host Object Model
Dans ta fonction,

Code :

- 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...