Discussion :

[Angelus1753]

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 batch :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[l_autodidacte]

Un exemple simple RunFile.vbs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[l_autodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Angelus1753]

Je sais que ma question va être bête :-)
Vous renseignez le chemin du dossier sur quel ligne???

[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

[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é.

[l_autodidacte]

Peut-être comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Angelus1753]

j'ai malheuresement une erreur

[ProgElecT]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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))

[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???

[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