HTA Application Desktop

I am trying to write my first HTA application.  

I want it to do a very simple task, open the window and have a close/exit button.
When the user click the button, it writes the word "FINISHED" to a local text file on the
hard drive and close the program.   I know this is very simple, but I have never written a HTA application before.


<html> 
<head> 
<title>Modal Example</title>
<HTA:APPLICATION
     Sysmenu="no" 
     APPLICATIONNAME="MainModal">
</head>
 
<script language="VBScript"> 
 
Sub ExitProgram
  Dim fso
  Set fso = CreateObject("scripting.filesystemobject")
  Dim txtFile as String
  Dim txtstr as TextStream
  txtFile = "C:\TheAutomoator\HotFile.txt"
  Set txtstr = fso.CreateTextFile(txtFile,True)
  txtstr.writeline "Finished"
  txtstr.Close
  window.close()
End Sub
</script> 
<body> 
<input id=runbutton type="button" Value="Exit when Finished" onClick="ExitProgram">
</body> 
</html>

Open in new window

begarrisonAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
astroviperConnect With a Mentor Commented:
"VBScript is a typeless language. This means that variables cannot be restricted to a single data type. VBScript does not allow you to specify in advance that a particular variable can hold only a particular kind of data. Instead, VBScript uses a single kind of variable, known as a variant, which can store any kind of data."
http://www.microsoft.com/technet/scriptcenter/guide/sas_vbs_eves.mspx?mfr=true

Line 14 and 15 should read:
  Dim txtFile
  Dim txtstr

Also ensure that the folder where you are going to save your text file already exists.
0
 
begarrisonAuthor Commented:
The response was very helpful and solved the problem.  I have been a member for some time and finally used the service.  i know why I joined.
Thanks.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.