File I/O using VB Script ??

[MRSOLO]

I am writing some Vb script at the moment where I want to output to file some of the variables that result in errors.

I am using standard vb6 File I/O code for sequential files

e.g. Open "C:\ADUserError.txt" for append As #1

but it gives a compilation error on this line as follows:

Char :27
Error : Expected end of statement.

Can someone advise if File I/O is possible using VB Script.

Thanks

 

[tsuji]

Hello MSSOLO,

Decidely you need some adaptation to a purely late-binding scripting language. The following is an example from vbs documentation of the FileSystemOhject OpenTextFiles method slightly modified to reflect your concern:

Sub OpenTextFileADUserError
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\ADUserError.txt", ForAppending)
   f.Write "New error information to append..."
   f.Close
End Sub

Complete detail, I'm afraid you have to consult the documentation. The adapation cannot be done by guessing.

regards - tsuji

 

[ShadowFox333]

Here is some easy code to write a file.
Enjoy Bob

DIM fso,txt01
Set fso = CreateObject("Scripting.FileSystemObject&quot
Set txt01 = fso.CreateTextFile("c:\text.txt", True)

txt01.WriteLine("Text&quot
txt01.WriteLine("More text&quot

txt01.Close

MsgBox "File Created!",vbInformation,"Create a text file"

Wscript.Quit

 

[tsuji]

MRSOLO,

Sorry for the mistyped handle.

- tsuji