Routine pour créer un raccourci

Pourquoi ?

Avoirs les principaux raccourcis sur le bureau, dans le voisinage réseau, envoyer vers, permet d'avoir un environnement de travail uniforme sur l'ensemble des PCs mais la création d'un raccourcis en vbs est coûteuse en ligne; alors on crée une fonction.

Principe :

L'objet objShel doit être créer et public dans le script.

Public objShell
Set objShell = WSCript.CreateObject("WSCRIPT.Shell")

La création d'un raccourci est longue (plus d'une seconde) , donc un test s'il n'existe pas avant de le créer. s'il ne fonctionne pas, l'utilisateur n'a qu'à le supprimer pour qu'il revienne à la prochaine connexion.

Cf (script center pour les options de création d'un raccourci)

Sub Rac(sUnc, target, arg, wrkdir, style, icon)
Dim ORaccourci
if not(objFSO.FileExists(sUnc)) then
Set ORaccourci = objShell.CreateShortCut(sUnc)
ORaccourci.TargetPath=target
ORaccourci.Arguments=arg
ORaccourci.WorkingDirectory=wrkdir
ORaccourci.WindowStyle=style
if icon <>"" then
ORaccourci.IconLocation=icon
end if
ORaccourci.save
End If
End Sub