VBScript - Write Text File
Environment
- Microsoft Windows XP
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