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

Résolu/Fermé
fefe_du_973 Messages postés 14 Date d'inscription lundi 6 avril 2020 Statut Membre Dernière intervention 26 novembre 2020 - Modifié le 20 avril 2020 à 14:54
fefe_du_973 Messages postés 14 Date d'inscription lundi 6 avril 2020 Statut Membre Dernière intervention 26 novembre 2020 - 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

5 réponses

yg_be Messages postés 22874 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 juin 2024 1 474
20 avril 2020 à 15:08
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 14 Date d'inscription lundi 6 avril 2020 Statut Membre Dernière intervention 26 novembre 2020
20 avril 2020 à 15:10
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 14 Date d'inscription lundi 6 avril 2020 Statut Membre Dernière intervention 26 novembre 2020
20 avril 2020 à 15:22
sinon je veux bien un exemple de commande stp
0
yg_be Messages postés 22874 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 juin 2024 1 474
20 avril 2020 à 17:19
voici un exemple:
dim nombrealeatoire
randomize
nombrealeatoire=rnd
msgbox nombrealeatoire
0
fefe_du_973 Messages postés 14 Date d'inscription lundi 6 avril 2020 Statut Membre Dernière intervention 26 novembre 2020
Modifié le 21 avril 2020 à 08:47
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 22874 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 juin 2024 1 474
21 avril 2020 à 09:34
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 14 Date d'inscription lundi 6 avril 2020 Statut Membre Dernière intervention 26 novembre 2020
21 avril 2020 à 09:57
Merci beaucoup pour ta réponse !!!
problème réglé !
Bonne journée et bon confinement
cordialement !
0