écrire une valeur dans un fichier .ini avec une input dans une hta

Version imprimable

2 pièce(s) jointe(s)

bonjour a tous et a toutes j'ai un petit problème...
je m'explique :
j'ai essayé de coder une hta contenant une input et un bouton valider pour enregistrer la valeur tapée dans l'input dans le fichier .ini
or le script qui fonctionne tout a fait dans un fichier vbs seul ne se lance pas correctement et cela m'affiche une erreur a l'appui du bouton :
Pièce jointe 619363
or comme montré dans l'image suivante l'objet requis WScript est bien présent à la ligne 21 :
Pièce jointe 619364
je suis donc bloqué et ne comprends pas d’où vient cette erreur sachant que l'(objet requis) est bien présent
est ce que l'objet n'est pas présent ou est ce que cela vient de mon script ?
je vous mets le code ci dessous
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 <Html> <Head> <Title>lecteur</Title> <HTA:Application Caption = Yes Icon = "Explorer.exe" Border = "Thick" ShowInTaskBar = "Yes" SingleInstance = "Yes" MaximizeButton = "Yes" MinimizeButton = "Yes" WINDOWSTATE="maximize" > <body> <table width= "90%" border="0" align="center"> <input name="version"></input> <SCRIPT language="Vbscript"> Sub Save '*** Préparation de l'environnement Const ForAppending = 8 Set fso = WScript.CreateObject("Scripting.FileSystemObject") FichierTXT = "toto.ini" '*** Création du fichier texte "toto.ini" Set NewFichier = fso.OpenTextFile(FichierTXT, ForAppending, True) '*** Ajout de données dans la variable "version". version = version.value '*** Ecriture des données de la variable "version" dans le fichier texte. NewFichier.WriteLine(version) '*** Destruction des objets Set fso = Nothing WScript.Quit End Sub </SCRIPT> <button id="valider" OnClick="Save" >enregistrer</button> </td> </tr> </table> </body> </html>
pourriez vous m'aider s'il vous plait ?

18/05/2022, 17h07
ProgElecT

Salut

Dans un HTA, il ne faut pas préciser WScript pour créer l'objet, Set oFSO = CreateObject("Scripting.FileSystemObject") se suffit à lui même.
18/05/2022, 20h05
jefepablo

1 pièce(s) jointe(s)

écrire une valeur dans un fichier .ini avec une input dans une hta

mais alors pourquoi ce message d'erreur avec WScript manquant je vais essayer ta méthode et je te dis si ça marche
non ça ne marche pas
Pièce jointe 619380
18/05/2022, 20h11
jefepablo

saurais tu comment remédier à cela ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
<Html>
<Head>
<Title>lecteur</Title>
<HTA:Application
Caption = Yes
Icon = "Explorer.exe"
Border = "Thick"
ShowInTaskBar = "Yes"
SingleInstance = "Yes"
MaximizeButton = "Yes"
MinimizeButton = "Yes"
WINDOWSTATE="maximize"
>
<body>
<table width= "90%" border="0" align="center">
<input name="version"></input>
<SCRIPT language="Vbscript">
Sub Save
'*** Préparation de l'environnement
Const ForAppending = 8
'Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set fso = CreateObject("Scripting.FileSystemObject")
FichierTXT = "toto.ini"
 
'*** Création du fichier texte "toto.ini"
Set NewFichier = fso.OpenTextFile(FichierTXT, ForAppending, True)
 
'*** Ajout de données dans la variable "version".
Laversion = version.value
 
'*** Ecriture des données de la variable "version" dans le fichier texte.
NewFichier.WriteLine(Laversion)
 
'*** Destruction des objets
Set fso = Nothing
 
'WScript.Quit
window.close() 'fermeture automatique du HTA suite à l'enregistrement
End Sub
</SCRIPT>
<button id="valider" OnClick="Save" >enregistrer</button>
</td>
</tr>
</table>
</body>
</html>

Le code a été vérifié, il fonctionne.
Il y avait conflit entre l'objet html input et la variable qui portait le même nom.

19/05/2022, 15h28
jefepablo

écrire une valeur dans un fichier .ini avec une input dans une hta

merci pour tout si j'ai d'autres questions je sais ou aller
merci pour cette réponse aussi rapide et je confirme que cela fonctionne bien...