Discussion :

[hubald]

Bonjours, j'ai un script ou l'essentiel fonctionne, mais il y a certains petits problème que je voudrais règler. je débute en vbscript alors j'ai encore du mal.

mon code est le suivant

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
 
Dim demanderRepertoire, fso, Dossiers, fic, fichiers, strListe
demanderRepertoire = InputBox("Saisir le nom complet du répertoire souhaité")
Set fso = CreateObject("Scripting.FileSystemObject")
if(fso.folderExists(demanderRepertoire) = true) then
	MsgBox ShowFolderList(demanderRepertoire),vbInformation,"Fichiers contenus dans le  répertoire "
else
	Msgbox "Le répertoire n'existe pas",vbcritical,"Erreur"
end if
 
Function ShowFolderList(strPath)
 
 	Set Dossiers = fso.GetFolder(strPath)
	Set fic = Dossiers.Files
	For Each fichiers in fic
		strListe = strListe & fichiers.Name & vbcrlf
		Next
		ShowFolderList = strListe 
End Function
 
wScript.quit

1. si je rentre un répertoire qui est vide j'aimerais avoir un message disant que le répertoire est vide

2. lorsque j'appuie sur annuler ou sur ok, sans avoir rien écrit le script me dit que le répertoire n'existe pas. Il faudrait que quand j'appuie sur annuler que le script quitte le programme et que si j'appuie sur ok sans avoir rien écrit un message s'affiche me demandant d'entrer un répertoire.

3. quand j'ai le message le "répertoire n'existe pas" le script quitte le programme. J'aimerais que le script quitte le programme seulement si j'appuie sur annuler.

pourriez-vous m'aider ?

[hubald]

J'ai presque tout réussi, mais il y a un dernier problème a règler.

Je voudrais que le programme ne se ferme pas tant que je n'ai pas appuyé sur annuler ou sur le x en haut à droite du input box et que lorsque j'appuis sur l'un de ces boutons, le programme se ferme sans m'afficher mon message d'erreur disant que le répertoire n'existe pas.

Cela se fait dans un while, mais comment je vais pour vérifier si j'ai appuyer sur annuler ou sur le X ?

[SfJ5Rpw8]

en testant la valeur de ta variable demanderRepertoire , qui doit être une chaine vide...

[hubald]

je crois qu'il y a une différence entre le champ vide et appuyer sur annuler, car quand j'appuie sur annuler il m'affiche mon message qui s'affiche si on appuie sur ok sans rien écrire.

Si j'écrit

Code :

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

1
2
3
4
 
do
    instructions
loop while(demanderRepertoire <> "")

il va quitter le programme si j'appuie sur ok sans rien écrire et ce n'est pas ce que je veux.

Je veux que si j'appuie sur ok sans rien écrire il affiche mon message disant de saisir quelque chose sans qu'il quitte le programme. qu'il ne quitte le programme seulement si j'appuie sur annuler ou le X.

Je ne veux pas non plus qu'il m'affiche quoi que ce soit si j'appuie sur annuler ou sur le X

il doit bien y avoir un moyen, mais lequel ?

[ced600]

The InputBox function displays a dialog box, where the user can write some input and/or click on a button. If the user clicks the OK button or presses ENTER on the keyboard, the InputBox function will return the text in the text box. If the user clicks on the Cancel button, the function will return an empty string ("").
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

default : Optional. A default text in the text box

Tu peux en partie résoudre ton problème en mettant un texte par défaut genre :"Entrée :", mais rien n'empêchera un utilisateur de l'effacer.

Si tu veux plus que cela, alors tu pourras pas utiliser ces simples inputbox, regarde dans les contributions, une d'entre elle parle de box amélioré.