New Tips Added Weekly!
Click here to get on our Mailing List

Expert - Write File

How to write to a File

Add a TextArea to your HTA.

	<textarea name="TextFile" id="TextFile" rows="20" cols="50">
	</textarea>
	

Add a button to write to the file.

	<input type="button" value="Submit" onclick="Submitarea">
    

Then add some code.

	Const ForWriting = 2
	
	Dim objFSO, objFile, strFileName
	strFileName = "textfile.txt"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
	
	Set objFile = objFSO.OpenTextFile(strFileName, 2, true)
	Set objShell = CreateObject("WScript.Shell")
	
	Sub Submitarea
		sTxtarea = TextFile.Value
		oFIle.Write sTxtarea & vbCRLF
		MsgBox "Your text has been added to " & strFileName, 64, "Textarea Input"
	End Sub
	

It would then be handy to open that File. Add another button to do this.

	<input type="button" value="Open" onclick="OpenTxtArea">
	

	Sub OpenTxtArea
		ShellRun = objShell.Run ("%comspec% /c Start Notepad " & strFileName, 0, 1)
    End Sub 
	

Sample Files
.hta

By: Alex Hedley

Click here to sign up for more FREE tips