[davkav]

Private Sub Write2_Click()

Dim fso As FileSystemObject
Dim Noob As File
Dim Noobs As TextStream

   
Const forwriting = 2
Set fso = New FileSystemObject

'Creates a FileObject
Set Noob = fso.GetFile("C:\Documents and Settings\dkavanagh\Desktop\project docs\Project Documents\VB Project\test.txt")
   
'Opens the file as TextStream
Set Noobs = Noob.OpenAsTextStream(forwriting, True)
   
Noobs.WriteLine vbNewLine + vbNewLine + "Output for Timer 1 Status" + vbNewLine + " " + DMY + " " + GMT + vbNewLine + vbNewLine + Text1.Text + vbNewLine + vbNewLine + "__________________________________________________"

End Sub

Basically all i want to do is add text to text file i.e. generate a report file with timestamps

I can write to the file no problem but if i enter more text into the text1.text box it overwrites the text already in the file, how do i get around this. I bet its something simple but i just cant seem to fix it

Thanks guys

[PsychoCoder]

This is happening because when you're opening it you're opening it ForWriting. To append text at the end of the file, you need to open the file ForAppending, like so

Private Sub Write2_Click()

Dim fso As FileSystemObject
Dim Noob As File
Dim Noobs As TextStream

  
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fso = New FileSystemObject

'Creates a FileObject
Set Noob = fso.GetFile("C:\Documents and Settings\dkavanagh\Desktop\project docs\Project Documents\VB Project\test.txt")
  
'Opens the file as TextStream
Set Noobs = Noob.OpenAsTextStream(ForAppending, TriStateUseDefault)
  
Noobs.WriteLine vbNewLine + vbNewLine + "Output for Timer 1 Status" + vbNewLine + " " + DMY + " " + GMT + vbNewLine + vbNewLine + Text1.Text + vbNewLine + vbNewLine + "__________________________________________________"

End Sub

Also, I'm not sure why the True is there in the OpenAsTextStream signature

[davkav]

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Whats the purpose of Tristate??

Set Noobs = Noob.OpenAsTextStream(ForAppending, TristateUseDefault)

Im getting an error at this point "Invalid procedure call or arugument", it doesnt seem to know what ForAppend is

Sorry to be a pain

This post has been edited by davkav: 13 March 2008 - 05:35 AM

[PsychoCoder]

Change it

Set Noobs = Noob.OpenAsTextStream(ForAppending, True)

Sorry about that, I was thinking of VBScript

[davkav]

Got it ForAppending = 8 not 3

Thanks for the help PsychoCoder

One last question is there a way of adding the text into the file so that it shifts the present text down below it.

At the moment the text is being written under the text already in the file.

i.e.:

Present Text
Added Text

Where as I want

Added Text
Present Text

This post has been edited by davkav: 13 March 2008 - 05:53 AM

[PsychoCoder]

Well looks like we're going to have to take a different approach, Ive yet to have this kind of problem with something like OpenAsTextSteam, so we'll try this approach:

Private Sub Command1_Click()
'Create a variable to hold what we want to write
Dim textToWrite As String

'Set the value of our variable
textToWrite = vbNewLine + vbNewLine + "Output for Timer 1 Status" + vbNewLine + " " + DMY + " " + GMT + vbNewLine + vbNewLine + Text1.Text + vbNewLine + vbNewLine + "__________________________________________________" 

'Open our file "ForAppend", lets us append to the end of the file
Open "C:\Documents and Settings\dkavanagh\Desktop\project docs\Project Documents\VB Project\test.txt" For Append As #2

'Write our text to the file
Print #2, textToWrite

'Close the file up
Close #2
End Sub

[davkav]

Got that code working but its still doing same thing i.e. writing the entry after the text already in the file

I take it that id have to basically count the number of lines of text within the text file and move the text down said number so i can enter the new text in??

would this be the right way?

This post has been edited by davkav: 13 March 2008 - 08:03 AM

[rikki_max]

the simplest way i use is to read text from a file than delete it after that write text to that file and that has never let me down