Bonjour,
Cela fait plusieurs jours que j'essaie par programmation de créer un raccourci vers un répertoire et impossible d'y arriver, je me résous à demander de l'aide aux spécialistes VB. Je précise qu'un raccourci vers un répertoire redirige vers le répertoire où il pointe lorsqu'on double-clique dessus. J'aimerais faire cela sous windows vista et windows seven.
Dans mes recherches j'ai réussi à créer un raccourci vers un exécutable de la manière suivante :
Ce script marche il n'y a pas de problème, il s'agit d'un raccourci de type fichier. Par contre si à la place de l'instruction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Dim Shell, DesktopPath, lnk Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set lnk = Shell.CreateShortcut(DesktopPath & "\Vlc.lnk") lnk.TargetPath = "C:\Program Files\VideoLAN\VLC\vlc.exe" lnk.Save
Je mets
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2lnk.TargetPath = "C:\Program Files\VideoLAN\VLC\vlc.exe"
Je n'obtiens pas un raccourci de type dossier comme je m'y attendais.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2lnk.TargetPath = "C:\Program Files\VideoLAN\VLC"
Dans mes recherches je suis tombé sur des messages où on explique que pour créer un raccourci de type dossier, il faut créer un répertoire et à l'intérieur de celui-ci avoir un fichier desktop.ini avec comme contenu:
également avoir un fichier target.lnk qui est un raccourci créé en utilisant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 [.ShellClassInfo] CLSID2={0AFACED1-E828-11D1-9187-B532F1E9575D} Flags=2
et puis changer les attributs du répertoire avec la commande :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Dim Shell, lnk Set Shell = CreateObject("WScript.Shell") Set lnk = Shell.CreateShortcut("c:\repertoire_qui_deviendra_raccourci_de_type_dossier\target.lnk") lnk.TargetPath = "C:\Program Files\VideoLAN\VLC" lnk.Save
attrib +s c:\repertoire_qui_deviendra_raccourci_de_type_dossier
Ca n'a pas fonctionné et ça me parait bien compliqué juste pour créer un raccourci.
Voilà, j'espère avoir bien tout expliqué et je suis à la recherche d'un script qui marche pour ce que j'ai besoin de faire.
Merci
Bon week-end.
Partager