Bonjour,

Je fait une fonction qui me permet de zipper un repertoire avec 7zip.
Dans la ligne de commande, on peut spécifier un mot de passe.
Le mot de passe, j'aimerai l'entrée moi même via un input de type password.
Ce que je n'arrive pas à faire, c'est récupérer ma valeur dans ma fonction.

voici le code simplifié:
Si je fais un msgbox pass, j'ai [objet] qui s'affiche mais non la valeur de mon champ. En fait je n'arrive pas a implanter une variable externe à la fonction.

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
 
<html>
<SCRIPT LANGUAGE="VBScript">
sub compression
 
Set WshShell = CreateObject("WScript.Shell")
 
oProgramFiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
str7zip = oProgramFiles & "\" & "7-Zip" & "\" & "7z.exe"
strcommand1 = chr(34) & str7zip & chr(34) & " u " &  c:\temp\sauvegarde.zip" & " " & c:\temp\test & " -p" & pass
WshShell.Run strcommand1, 0, true
 
strdelete = "CMD /C rmdir /S /Q c:\temp\test\"
 
WshShell.Run strdelete, 0, true
 
End sub
</script>
 
Mot de passe OBLIGATOIRE : <input type="password" size="10" name="pass" ID="pass">
<input type="button" id="BTvalider" name="valider" value="Continuer" onclick="compression()">
</html>