Code:<% dim filesys, demofolder, filetxtSet filesys = CreateObject("Scripting.FileSystemObject") Set demofolder = filesys.GetFolder("c:\projects\") Set filetxt = demofolder.CreateTextFile("somefile.txt", True) filetxt.WriteLine("Your text goes here.") filetxt.Close %>