Discussion :

[xarkam]

Bonjour

Je travaille à l'élaboration d'un vbs permettant la création d'une liste de raccourcis pointant vers des dossiers contenu dans un sous dossier.

Malgré mes diverses recherches, je n'obtient pas le résultat voulu. Les fichiers .lnk sont créés, la cible et le dossier des travail sont correcte, quant je demande d'ouvrir l'emplacement dossier via les propriétés c'est correcte.
Mais lorsque je double clique dessus, windows me demande avec quelle programme ouvrir le fichier.

Voici mon code vbs:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function GetVbsExecutePath()
 GetVbsExecutePath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
End Function
 
dim folderlist
Set Shell = CreateObject("WScript.Shell")
folderlist = Array("configuration","graph","iobuffer","logos","pdf","photos_articles","photos_familles","photos_marques","rapports")
for i = 0 to UBound(folderlist)
 Set link = Shell.CreateShortcut(folderlist(i)&".lnk")
 link.TargetPath = GetVbsExecutePath & "parametres\" & folderlist(i)
 link.WorkingDirectory = GetVbsExecutePath & "parametres\" & folderlist(i)
 link.save
next

Merci.

[spantemonium]

question bête, mais lorsque tu n'utilise pas le raccourci, et que tu lance le chemin du lien dans démarrer executer, ca demande pas avec quel programme ouvrir le fichier ?

[xarkam]

Salut spantemonium

aussi bien via win+R qu'en ligne de commande, j'ai la fenêtre demandant quelle programme utiliser pour ouvrir le fichier .lnk

Chose étrange, un raccourcis créé via explorer fait ~592 octet et ceux créées via le script font ~860 octet.

[spantemonium]

à mon avis tes raccourcis sont bien générés et fonctionnent, juste que ton système ne reconnait pas l'extension du fichier à ouvrir.

regarde plutot comment les ouvrir manuellement, et quand ca foncitonnera, tu pourra tester les raccourcis.

[xarkam]

Les fichiers .lnk sont bien reconnu puisqu'un raccourci créé dans l'explorateur windows est reconnu en ligne de commande.
Mais, il semblerait qu'il manque une information dans le lnk.
depuis windows 2000 on a les raccourcis de type fichiers et de type dossiers.
Pour ce dernier il doit manquer quelque chose dans le script pour indiqué dans le .lnk qu'il s'agit d'un dossier.

[spantemonium]

Je suis sous XP, j'ai lancé cà et ca fonctionne bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
set WshShell = WScript.CreateObject("Wscript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "Scripts.lnk")
oShellLink.IconLocation = "d:\scripts\ ,0"
oShellLink.TargetPath = "d:\scripts\"
oShellLink.Save

il m'ouvre le dossier qui va bien... Je n'ai pas précisé de type de raccourci.