Criando um arquivo TXT com VBScript

Nos antigos pacotes DTS, a única opção de código para os Activex Script Tasks era realmente o VBScript. Recentemente tive que criar um arquivo texto a partir de uma Task, e para tanto, utilizei como base o seguinte código:

Function Main()

    Dim Stuff

    Stuff = "Rodrigo"

    Dim myFSO

    Dim WriteStuff

    myFSO = CreateObject("Scripting.FileSystemObject")

    WriteStuff = myFSO.OpenTextFile("C:\Sistemas\yourtextfile.txt", 8, True)

    WriteStuff.WriteLine(Stuff)

    WriteStuff.Close()

    Main = DTSTaskExecResult_Success

End Function

Até a próxima!