Sub WriteFSO()
'Uses a reference to Microsoft Scripting Runtime (scrrun.dll)
Dim objFSO As Scripting.FileSystemObject
Dim objTS As Scripting.TextStream
Set objFSO = New FileSystemObject
'[b]TristateTrue[/b] sets the file to Unicode
Set objTS = objFSO.OpenTextFile("C:\FSO.txt", _
ForWriting, _
True, _
[b]TristateTrue[/b])
With objTS
.WriteLine GoodDay
.Close
End With
Set objTS = Nothing
Set objFSO = Nothing
End Sub
Sub WriteSDOStream()
'Uses a reference to Microsoft ActiveX Data Objects 2.5 (msado25.tlb)
Dim strmOut As ADODB.Stream
Set strmOut = New ADODB.Stream
With strmOut
.Type = adTypeText
.Charset = "utf-8"
.Open
.WriteText GoodDay, adWriteLine
.SaveToFile "C:\ADO.txt", adSaveCreateOverWrite
.Close
End With
Set strmOut = Nothing
End Sub