<% Dim folderStream, fileStream Set folderStream= CreateObject("Scripting.FileSystemObject") Set fileStream= folderStream.CreateTextFile("c:\codemiles.txt", True) fileStream.WriteLine("Codemiles text case.") fileStream.Close Set fileStream= folderStream.GetFile("c:\codemiles.txt")
// copy file. fileStream.Copy ("c:\copy.txt") %>
_________________ M. S. Rakha, Ph.D. Queen's University Canada