Sub CreateTextFile()
Dim FileNumber
FileNumber = FreeFile ' Get unused file number.
Open "C:\Test.txt" For Output As #FileNumber
Write #FileNumber, "This is a first line of data"
Print #FileNumber, "This is a second line of data"
Close #FileNumber

End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Tetsuya Oguma" wrote in message
...
Hi all,

Subject says it all; Can I assume everyone has Scripting Run Time
(scrrun.dll) on C:\WINNT\sytem32\?

Apparenlty it comes with Internet Explorer 6.0.

What other alternatives do I haev to create a text file and insert some
text
in lines?

Thanks for your time.