VBScript - Write Text File

Environment
  • Microsoft Windows XP
Code
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

'Write a text file
'iomode shuld be ForReading, ForWriting or ForAppending
'Param sFilePatch
'Param inmode
'Param sText
Function WriteTextFile(sFilePath, iomode, sText)
   Dim oFSO
   Dim oTextFile

   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set oTextFile = oFSO.OpenTextFile(sFilePath, iomode, True)

   ' Write a line
   oFile.WriteLine(sText)

   oTextFile.Close
End Function