Création d'un raccourci avec un nom aléatoire
Résolu
fefe_du_973
Messages postés
17
Statut
Membre
-
fefe_du_973 Messages postés 17 Statut Membre -
fefe_du_973 Messages postés 17 Statut Membre -
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.
Merci pour votre réponse
Cordialement
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 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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 -
Le problème c'est que ça met le nom de la commande au lieu de l'exécuter
-
-
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)-
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 ligneSet Ink =
de ton code, ainsi:Set Ink = Shell.CreateShortcut(DesktopPath & "\" & cstr(nombrealeatoire) & ".lnk")
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Merci beaucoup pour ta réponse !!!
problème réglé !
Bonne journée et bon confinement
cordialement !
