code from Excel Help doesn't work

[ryan darrow]

I have the code below copied verbatim from Excel help. I am trying to open a .txt file, add text to the end of the file and save the .txt file. I have created a test file that is c:\testfile.txt and cannot figure this simple procedure out. When I run I get Run-time error 5 - Invalid procedure call or argument. It is hanging up on the line that I underlined.

Sub OpenTextFileTest()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\testfile.txt", ForAppending, TristateUseDefault)
f.write "Hello world!"
f.Close
End Sub

[Domski]

Another way:

Please Login or Register  to view this content.

Dom

[Andy Pope]

Please Login or Register  to view this content.

Where and how exactly did you find the help example?

[shg]

If you don't set a reference to Microsoft Scripting Runtime, then the values of the constants (e.g., ForAppending) are unknown (they come from the Scripting library).

And since you didn't use Option Explicit, you just end up with an Empty variable instanced on the fly.

EDIT: Just to elaborate: Using late binding as in your example avoids the need to set a reference, but in doing so, you must define all constants that may be associated with a given object whose values come from that library. Using Option Explicit is always a good practice, but for avoiding problems like these, it's essential.

Something I don't know is whether your use of the last constant is correct. If a file is saved in Unicode and then opened as ASCII, I don't know whether that works.

[ryan darrow]

I found it in the OpenTextFile Method section of the help in Excel. The 8 fixed it though. Thanks!