Création d'un raccourci avec un nom aléatoire

Résolu
fefe_du_973 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
fefe_du_973 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   - 21 avril 2020 à 09:57
Bonjour,
Après de nombreuses recherches peu fructueuses sur l'Internet moderne 2.0 je voulais savoir comment générer un raccourci avec un nom aléatoire avec un vbs et ce script.Me dire ci ce n'est pas possible.
Dim Shell, DesktopPath, INK 

Set Shell = CreateObject("WScript.Shell")

DesktopPath = Shell.SpecialFolders("Desktop")

Set Ink = Shell.CreateShortcut(DesktopPath & "\nombre aléatoire.lnk")

Ink.TargetPath = "E:\ancienne clée\xxxx\xxxx\xxxx\lance.exe"

Ink.Save


Merci pour votre réponse

Cordialement
A voir également:

5 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 583
 
bonjour, tes nombreuses recherches t'ont-elles menées à lire ceci?
https://docs.microsoft.com/fr-ch/office/vba/language/reference/user-interface-help/rnd-function
1
fefe_du_973 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Le problème c'est que ça met le nom de la commande au lieu de l'exécuter
0
fefe_du_973 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
sinon je veux bien un exemple de commande stp
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583
 
voici un exemple:
dim nombrealeatoire
randomize
nombrealeatoire=rnd
msgbox nombrealeatoire
0
fefe_du_973 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
merci pour ta réponse mais je veux que le nom du raccourci soit le nombre aléatoire choisi par ton programme peut t'on faire un programme qui choisi un nombre avec ça :
dim nombrealeatoire
randomize
nombrealeatoire=rnd
msgbox nombrealeatoire

et une fois le nombre choisi l'applique au nom du raccourci :
Dim Shell, DesktopPath, INK

Set Shell = CreateObject("WScript.Shell")

DesktopPath = Shell.SpecialFolders("Desktop")

Set Ink = Shell.CreateShortcut(DesktopPath & "\nombrealeatoire.lnk")

Ink.TargetPath = "E:\ancienne clée\xxxx\xxxx\xxxx\lance.exe"

Ink.Save

peut t-on fusionner les codes pour faire ce que je veux ?
Si possible m'écrire le code nécessaire (je suis débutant)
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583
 
pour te permettre de ne pas rester débutant, il me semble préférable que tu fasses une partie du travail.
par ailleurs, merci d'utiliser les balises de code quand tu postes du code sur le forum: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

pour fusionner les deux codes, ajoute les trois premières lignes de mon code après la première ligne de ton code.
ensuite, modifie la ligne
Set Ink =
de ton code, ainsi:
Set Ink = Shell.CreateShortcut(DesktopPath & "\" & cstr(nombrealeatoire) & ".lnk")
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
fefe_du_973 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup pour ta réponse !!!
problème réglé !
Bonne journée et bon confinement
cordialement !
0