VBS en mode Aléatoire

Version imprimable

10/01/2021, 11h25
Angelus1753

VBS en mode Aléatoire
Bonjour à toute et tous

je reviens vers vous pour une nouvelle questions.

je posséde un batch qui est capable de lancer aléatoirement n'importe quel fichier Vbs, Mp3, exe, etc

ma question et donc peut on faire la même chose en Vbs

voici le
Code:

1 2 3 4 5 6 7 @echo off set /a max=5 set /a nbr=5 For %%a In ("*.*") Do set /a max+1 set /a nbr=%random%%%%max% start C:\Apps\Media\Movies\action\%nbr%.vbs exit

Un exemple simple RunFile.vbs :
Code:

1 2 3 4 5 6 7 8 9 10 11 Option Explicit Dim oArgs, fso, TheFile Set oArgs = Wscript.Arguments Set fso = CreateObject("Scripting.FileSystemObject") If oArgs.Count = 0 Then MsgBox "Ce script demande un fichier par glisser / déposer", , "L'opération va être arrêtée !" Wscript.quit End If Set TheFile = fso.GetFile(oArgs(0)) CreateObject("Wscript.Shell").Run TheFile.ShortPath, 1, True
On ne lance pas le script par double clic mais en déposant le fichier voulu sur le fichier que j'ai dénommé RunFile.vbs ou en ligne de commande par exemple : C:\Temp\RunFile.vbs C:\..\..\Monfichier.mp3

10/01/2021, 19h26
Angelus1753

Bonsoir l_autodidacte et merci de votre réponse.

j'aimerais si possible pouvoir activer par double clique, et surtout renseigner le repertoire choisi comme dans le batch
tout du moins dans la mesure du possible, encore merci de votre réponse.

Dans ce code, il y a 2 possibilités de lancer le fichier : Par Glisser/Déposer ou par double clic en insérant le chemin complet au fichier voulu :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Dim oArgs, fso, TheFile, FileName
 
  Set oArgs = Wscript.Arguments
  Set fso = CreateObject("Scripting.FileSystemObject")
  If oArgs.Count > 0 Then
      Set TheFile = fso.GetFile(oArgs(0))
      CreateObject("Wscript.Shell").Run TheFile.ShortPath, 1, True
  Else
      FileName = InputBox("Donner le chemin complet au fichier à lancer", "Fichier à lancer")
      FileName = fso.GetFile(FileName).ShortPath
      CreateObject("Wscript.Shell").Run FileName, 1, True
  End If

10/01/2021, 21h42
Angelus1753

Je sais que ma question va être bête :-)
Vous renseignez le chemin du dossier sur quel ligne???
10/01/2021, 22h01
l_autodidacte

En double cliquant sur le fichier, une boite de dialogue s'ouvre.
Dans cette boite, il y a un champ de saisie vide, c'est là qu'il faut mettre le chemin du fichier
10/01/2021, 22h22
Angelus1753

tout d'abord merci à vous

le fichier ce lance effectivement

mais ce que je voudrais c'est qu'il lance un dossier complet avec des mp3 par exemple, en mode aléatoire et sans boite de dialogue

comme le batch plus haut. tout du moins si c'est possible, d'ou ma question. car mon batch le fais avec n'importe quel sorte de fichier mp3, mkv, mp4, vbs etc.
j'ai choisit le format vbs plutot que le batch. pour sa rapidité.

Peut-être comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim fso, oFold, oFile, I, Cnt, TBL(20)
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFold = fso.GetFolder("C:\Temp") ' Chemin à modifier selon le besoin
Cnt = oFold.Files.Count
I = 0
For Each oFile In oFold.Files
    TBL(I) = oFile.ShortPath
    I = I + 1
Next
 
Randomize
CreateObject("Wscript.Shell").Run TBL(Int(Rnd*Cnt)), 1, True

11/01/2021, 00h42
Angelus1753

1 pièce(s) jointe(s)

Pièce jointe 588221

j'ai malheuresement une erreur

Salut

Un petit oubli de l_autodidacte :coucou:, le dimensionnement du tableau par le nombre de fichiers contenu dans le dossier.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Dim fso, oFold, oFile, I, Cnt, TBL()
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFold = fso.GetFolder("C:\MesProgs") ' Chemin à modifier selon le besoin
Cnt = oFold.Files.Count
Redim Preserve TBL(Cnt)
I = 0
For Each oFile In oFold.Files
    TBL(I) = oFile.ShortPath
    I = I + 1
Next
Randomize
'CreateObject("Wscript.Shell").Run TBL(Int(Rnd*Cnt)), 1, True
'pour la démo
msgbox "Titre aléatoire: " & TBL(Int(Rnd*Cnt))

11/01/2021, 09h37
Angelus1753

Bonjour ProgElect, Bonjour L_autodidacte

un grand merci à vous messieurs.

problème résolu

pour moi résolu

une dérnière question à titre de curiostié peut ton jouer les ficher audio en mode invisible tout en étant aléatoire???
11/01/2021, 09h55
ProgElecT

Re

Pour ta dernière question, oui, 2ém paramètre de la commande Run.
Tu devrais récupérer le fichier d'aide en ligne ⇒ Où trouver l'aide en ligne pour VBScript ?, une fois installé, tu tapes run dans la case Entrez un mot à rechercher