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?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

astroviperCommented:
"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

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
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
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Web Development Software

From novice to tech pro — start learning today.