Can anyone help me?
I am attempting to take the selection from a DropDown box and write
that selection to a text file.
Any help would be greatly appreciated.
Thanks,
Cisco
<html>
<head>
<title>HTA Helpomatic</title>
<HTA:APPLICATION
ID="objHTAHelpomatic"
APPLICATIONNAME="HTAHelpomatic"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize"
>
</head>
<SCRIPT Language="VBScript">
Sub RunScript
Msgbox DropDown1.Value
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''
strtext = DropDown1.value
Const FOR_READING = 1
Const FOR_WRITING = 2
strFileName = "test.txt"
strNewContent = "sample string content"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile(strFileName,FOR_READING)
strContents = objTS.ReadAll
objTS.Close
Set objTS = objFS.OpenTextFile(strFileName,FOR_WRITING)
objTS.WriteLine strComputer
objTS.Write strContents
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
</SCRIPT>
<body>
<fieldset>
<select size="1" name="DropDown1">
<option value="1">Option 1</option>
<option value="2">Option 2</option>
<option value="3">Option 3</option>
<option value="4">Option 4</option>
</select>
</fieldset>
<input id=runbutton class="button" type="button" value="Run Script"
name="ok_button"onClick="RunScript">
<input id=runbutton class="button" type="button" value="Cancel"
name="cancel_button" onClick="CancelScript">
<P>
<span id=DataArea></span>
</body>
</html>