How to write to a text file

[GSMike]

I'm confused...
A few days ago, I got this code (or something like it) from the on-line help files:

Dim fs
set fs=createobject("scripting.filesystemobject&quot
fs.write("I put my text here&quot
etc, etc...

Now all I can find is:

Open "c:\testfile.txt" for output as #1, etc.
Print #1, "I can also put my text here..."

What I am really looking for is the former method (i.e., set fs=createobject("scripting.filesystemobject&quot, etc. I can't find it anywhere in the help files, and I know I've referred to it at least three times in the past there. Can you help by helping me finish the syntax for:

Dim fs
set fs=createobject("Scripting.FileSystemObject&quot
????something about a text file here
???fs.write(&quot;My text here...&quot <--I think?

or by suggesting a keyword for me to type in the contents/index of the Access 97 help files to get back to where I was before?

The former method was more flexible, allowing me to append text to an existing file without starting a new line, etc.

Thanks!!!

 

[KenG]

Have you checked that you still have a reference to the Microsoft Sriptlet Library?

 

[RoyVidar]

Hi!
You're using late binding. Try early binding - Tools | References and add &quot;Microsoft Scripting Runtime&quot;. This will run faster.

Then you can use the following syntax (False:= the file is not created if it's not there);

Sub test()
Dim fs As FileSystemObject
Dim txtFile As TextStream
' IoMode kan be the following constants:
' ForAppending
' ForWriting
' ForReading
Set fs = New FileSystemObject
Set txtFile = fs.OpenTextFile(&quot;C:\test.txt&quot;, ForWriting, False)
txtFile.WriteLine (&quot;Just testing&quot
txtFile.Close
End Sub

Roy-Vidar

 

[RodTheChemist]

This worked a treat for me as I was previously writing to MS Word and then saving the files as .txt (please forgive me I'm brand new to this).

Only one question: Is there a way to insert the text without the carriage return at the end of the string?

This would help me greatly as I've still got to open the txt file manually to correct this.

Much Appreciated.

 

[GSMike]

For appending data with no carriage return, this worked for me...good luck...power to the newbies (I should say, &quot;US newbies)!!

Sub mike()
Dim fs As FileSystemObject
Dim txtFile As TextStream
Set fs = New FileSystemObject
'Set txtFile = fs.CreateTextFile("c:\testfile.txt")
Set txtFile = fs.OpenTextFile("c:\testfile.txt", ForAppending)
txtFile.Write ("just testing")
txtFile.Close
End Sub