<% Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim strFileName, objFSO, objMenuPage
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFileName = "c: empMyFile2.htm"
Set objMenuPage = objFSO.createtextFile(strFileName, forWriting, True) 'overwrite
'write the HTML page
objMenuPage.WriteLine "Test Creating file"
objMenuPage.WriteLine "List of files available
"
objMenuPage.WriteLine Now() //Write out the time Use all VBScript functions!
objMenuPage.WriteLine ""
objMenuPage.Close %>