'========================================

Sub zFile_WriteString(sFileName, sString)

	Const ForReading = 1, ForWriting = 2, ForAppending = 8
	Dim oFso, oFile, iErr, sErr

	Set oFso = CreateObject("Scripting.FileSystemObject")
 
	Set oFile= oFso.OpenTextFile(sFileName, ForWriting, True)

	oFile.Write(sString)

	oFile.Close

	Set oFile = Nothing
	Set oFso = Nothing
    
End Sub

'========================================