Discussion :

[cedrickb]

Bonjour tout le monde,

Je cherche à réaliser les actions suivantes au sein d'un bat:
Lister les fichiers d'un répertoire.
Créer un menu en fonction des fichiers (du genre "sélectionner le fichier à exécuter")
puis ensuite exécuter le dit fichier.

Est-ce que cela est possible? J'ai vu qu'on pouvait sortir la liste des fichiers dans un fichier texte mais je souhaiterai créer un menu utilisateur de sélection du fichier...
Je suis preneur de toute réponse, suggestion, aide, lien...

Merci d'avance pour vos retours.

++

[sachadee]

Salut,

Tu voudrais executer quel fichier .exe, .pdf, .txt ou tous ?

[cedrickb]

Je voudrais exécuter un exe qui prendrait en paramètre le fichier sélectionné...

[sachadee]

Tu peux récupèrer les fonctions windows (open file dialog) dans un code VBS et lancé ton application :

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
17
18
19
20
21
22
23
24
Function BrowseForFile()
With CreateObject("WScript.Shell")
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
Dim tempName : tempName = fso.GetTempName() & ".hta"
Dim path : path = "HKCU\Volatile Environment\MsgResp"
With tempFolder.CreateTextFile(tempName)
.Write "<input type=file name=f>" & _
"<script>f.click();(new ActiveXObject('WScript.Shell'))" & _
".RegWrite('HKCU\\Volatile Environment\\MsgResp', f.value);" & _
"close();</script>"
.Close

End With
.Run tempFolder & "\" & tempName, 1, True
BrowseForFile = .RegRead(path)
.RegDelete path
End with
End Function
Dim appPath 'Chemin de l'application
appPath = "notepad.exe"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run chr(34) & appPath & chr(34) & (BrowseForFile)

Je t'ai fait un exemple avec notepad.exe que tu dois remplacer par le nom de ton exe.

N'étant pas un spécialiste du VBS, si cette solution te convient, tu pourras voir avec Hackoo () pour les différentes options (affichage selon extension, etc..)

[cedrickb]

Bonjour sachadee,

Merci pour ta réponse.
Malheureusement je ne peux pas utiliser de script VBS dans mon contexte... Je dois faire cela avec un fichier bat, je sais ce n'est peut être pas la meilleure solution mais mes contraintes font que je ne peux pas faire autrement.

En tout cas merci de t'etre penché sur mon problème!

++

[sachadee]

En bat on pourrait sinon imaginer une approche de ce type :
Ici j'ai pris comme extension (*.txt) qui sera lancer automatiquement avec
notepad.

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
17
18
19
@echo off&cls
mode con cols=80 lines=100
if exist temp del temp
setlocal enabledelayedexpansion
set $count=1
for %%a in (*.txt) do (echo %%a >>temp
                       echo !$count! - %%a
                       set /a $count+=1)

set /p $choix=Entrez la valeur correspondante au fichier que vous voulez lancer : 

set $count=1
for /f "delims=" %%a in (temp) do (if !$count!==%$choix% (set $fichier=%%a
                                                          goto:lance)
                                   set /a $count+=1)


:lance
start %$fichier%

Ce n'est qu'une ébauche pour te donner une idée.