Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 898
  • Last Modified:

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

0
begarrison
Asked:
begarrison
1 Solution
 
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
 
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

Featured Post

Configuration Guide and Best Practices

Read the guide to learn how to orchestrate Data ONTAP, create application-consistent backups and enable fast recovery from NetApp storage snapshots. Version 9.5 also contains performance and scalability enhancements to meet the needs of the largest enterprise environments.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now