We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

HTA Application Desktop

Medium Priority
923 Views
Last Modified: 2013-11-17
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

Comment
Watch Question

Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Author

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.
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.