Using VB script FileSystemObjects

[billtubbs]

I'm trying to access text files in VB using the FileSystemObjects.

Code: Select all

Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("C:\Program Files\CIMS\testfile.txt", ForReading)

When I run this code I get the error message shown below. The line corresponds to the third statement above.



This code is in one of the examples posted on the on msdn.microsoft.com:
http://msdn.microsoft.com/library/defau ... 6f4e1d.asp

Other FileSystem objects and methods seem to work fine. Is it something to do with the version of VB I am using perhaps? Has anybody got sample code for reading/writing text files with VB in Macro Scheduler?

Bill.

[billtubbs]

Sorry! stupid mistake.

I didn't notice that ForReading is a locally defined constant. The code should be:

Code: Select all

Const ForReading = 1
Dim fso, ts 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set ts = fso.OpenTextFile("C:\Program Files\CIMS\testfile.txt", ForReading)