How do I save a string to a file?

[dellyjm]

Hi i currently am trying to write an application that will save a string to a file name. It is not working. When i use the file scripting object and save it, the file isnot saved properly. When I copy and paste the same file into notepad it works well. I dunno what to do. FIle type is .XML.

Delton.

 

[Tido]

try
Set lfso = New FileSystemObject
fso.CreateTextFile (FileLocation)
Set lfil = lfso.GetFile(FileLocation)
Set lts = lfil.OpenAsTextStream(ForWriting)
lts.writeline (STRINGVARIABLE)
lts.close