Création d'un raccourci vers un dossier

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:

---

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:

---

1 2	lnk.TargetPath = "C:\Program Files\VideoLAN\VLC\vlc.exe"

---

Je mets

Code:

---

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:

---

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:

---

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.

Salut,

Tu peux le faire en batch comme ça :

http://www.developpez.net/forums/d42...-vers-fichier/

Salut

Citation:

---

Envoyé par toto828

Bonjour,

Cela fait plusieurs jours ......
......
Je mets

Code:

---

1 2	lnk.TargetPath = "C:\Program Files\VideoLAN\VLC"

---

Je n'obtiens pas un raccourci de type dossier comme je m'y attendais.
.......

---

Tu obtiens rien du tout ou quelque chose d'autre qu'un raccourci avec l'image d'un dossier ?
Ton code fonctionne chez moi sous Windows 7 Édition Intégrale, session administrateur, se qui me laisse penser que tes droits ne sont pas suffisant pour t'autoriser la création du raccourci.

Merci beaucoup pour ton aide. Ca m'a permit de trouver rapidement.

ça y est j'ai réussi à le faire marcher, le problème est que j'exécutais ce script dans du java avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

import java.io.File; import java.io.FileOutputStream; import java.io.IOException; public class Test { public static void main(String[] args) throws IOException { String script = "Set sh = CreateObject(\"WScript.Shell\")" + "\nSet shortcut = sh.CreateShortcut(\"C:/Users/toto828/Desktop/Shortcut.lnk\")" + "\nshortcut.TargetPath = \"C:/Program Files/VideoLAN/VLC\"" + "\nshortcut.Save"; File file = new File("C:/Users/toto828/Desktop/temp.vbs"); FileOutputStream fo = new FileOutputStream(file); fo.write(script.getBytes()); fo.close(); Runtime.getRuntime().exec("wscript.exe " + file.getAbsolutePath() ); } }

---

J'obtenais un raccourci mais non de type dossier.

En changeant mon code comme ceci, cela a fonctionné :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

import java.io.File; import java.io.FileOutputStream; import java.io.IOException; public class Test { public static void main(String[] args) throws IOException { String script = "Set sh = CreateObject(\"WScript.Shell\")" + "\nSet shortcut = sh.CreateShortcut(\"C:/Users/toto828/Desktop/Shortcut.lnk\")" + "\nshortcut.TargetPath = \"C:\\Program Files\\VideoLAN\\VLC\"" + "\nshortcut.Save"; File file = new File("C:/Users/toto828/Desktop/temp.vbs"); FileOutputStream fo = new FileOutputStream(file); fo.write(script.getBytes()); fo.close(); Runtime.getRuntime().exec("wscript.exe " + file.getAbsolutePath() ); } }

---