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 :

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
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
 
lnk.TargetPath = "C:\Program Files\VideoLAN\VLC\vlc.exe"
Je mets

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
lnk.TargetPath = "C:\Program Files\VideoLAN\VLC"
Je n'obtiens pas un raccourci de type dossier comme je m'y attendais.

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:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
[.ShellClassInfo]
CLSID2={0AFACED1-E828-11D1-9187-B532F1E9575D}
Flags=2
é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
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
et puis changer les attributs du répertoire avec la commande :
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.