Vbs creer un raccourcis

Bonjour,
Je voulais faire un bat qui creer un raccourcis mais j'ai fais quelque recherche mais c'est impossible. Donc j'ai decidé de passé a vbs pour faire la commande. Cependant j'y comprend rien en vbs.

Voici une commande vbs que j'ai trouvé pour créer des raccourcis.

Rem //Définition de la mis en place du Wscript
set WshShell = WScript.CreateObject("WScript.Shell" )

Rem //Définir où se place l'objet que l'on va executer
strDesktop = WshShell.SpecialFolders("Desktop" )

Rem //Création du raccourci sur le bureau
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Xnview.lnk" )

Rem //Définition du dossier cible
oShellLink.TargetPath = "C:\XnView\xnview.exe"

Rem //Définition de la cible de l'icône de l'executable et sa position
oShellLink.IconLocation = "C:\XnView\xnview.exe, 0"

Rem //Description du raccourci
oShellLink.Description = "Xnview"

Rem //Création du raccourci
oShellLink.Save


De un cette commande ne correspond pas a se que je demande puisque mon dossier ou contiens le fichier est créer par un bat qui créer un dossier date chaque fois que je l'active. Donc dans le vbs qui créer un raccourcis il faut qu'il ait un truc de date. Bon maintenant ou est-ce-que je veux mettre le raccourcis? Je veux le mettre dans un dossier date mais seulement l'année.

Pour être franc je fais tous cela parce que je télécharge des films. Il vont dans mon disque dure externe. J'actionne un bat qui vérifie si le dossier film existe. Dans le dossier film il creer un dossier date (année mois jour). Ensuite, il déplace le film que je viens de téléchargé dans ce dossier date.

Ce que je veux c'est que ce bat active un vbs qui lui creer un raccourcis du films qui est dans le dossier date. Ce raccourcis vas aller dans un dossier date (juste l'année).

C'est une facon de classé tous les films que je télécharge selon l'année car j'ai beaucoup de film.

Merci de votre aide.
Ce serai apprécié que vous m'aidez a crée ce vbs.