Créer un raccourci d'un répertoire par macro

[pat01200]

Bonsoir le forum,

Je m'adresse à vous parce qu'après plusieurs tentatives, toutes infructueuses, je n'arrive pas à trouver le bon code pour créer sur le bureau un raccourci vers un répertoire créé précédemment par macro. Ca marche pour des fichiers, mais pas pour des répertoires...

Quelqu'un saurait-il me venir en aide ?

 

[camarchepas]

Re : Créer un raccourci d'un répertoire par macro

Bonsoir,

A essayer, ne fonctionne peut être pas avec tous les systèmes d'exploitation.

Sub test()
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.createshortcut(DesktopPath & "\Ici.lnk")
CreateObject ("Scripting.FileSystemObject")
URL.TargetPath = "E:\2010\"
URL.Save
Set oFS = Nothing
End Sub

 

[pat01200]

Re : Créer un raccourci d'un répertoire par macro

Merci pour cette piste,
Chez moi le raccourci se crée bel et bien sur le bureau... malheureusement, lorsque l'on clique dessus, le répertoire en question ne s'ouvre pas.
J'ai le même problème avec une macro similaire :

Sub CreerRaccourci()
Dim Raccourci As Object
With CreateObject("WScript.Shell")
Set Raccourci = .CreateShortcut(.SpecialFolders("Desktop") & "\MonRépertoire.lnk")
End With
Raccourci.TargetPath = "\Program Files\MonRépertoire"
Raccourci.Save
Set Raccourci = Nothing
End Sub

 

[camarchepas]

Re : Créer un raccourci d'un répertoire par macro

Ne pas oublier le "\" en fin du répertoire

 

[pat01200]

Re : Créer un raccourci d'un répertoire par macro

Malgré le "\" en fin de nom de répertoire, le raccourci se crée toujours mais sans fonctionnalité