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

camarchepas

XLDnaute Barbatruc

• 9 Juillet 2010

• #2

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

P

pat01200

XLDnaute Occasionnel

• 9 Juillet 2010

• #3

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

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 10 Juillet 2010

• #4

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

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

 

Vote positif 0 Vote négatif

P

pat01200

XLDnaute Occasionnel

• 10 Juillet 2010

• #5

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é

 

Vote positif 0 Vote négatif