You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
601 B
Plaintext
17 lines
601 B
Plaintext
<% 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 "<HTML><head><title>Test Creating file</title></title></head>"
|
|
objMenuPage.WriteLine "<BODY><P><B>List of files available</B></P>"
|
|
objMenuPage.WriteLine Now() //Write out the time Use all VBScript functions!
|
|
objMenuPage.WriteLine "</body></html>"
|
|
|
|
|
|
objMenuPage.Close %>
|