Writing to a text file.

[Iceman]

I am logging things to a file but when I kill the app and
restart it, all the other logging is gone. How can I
prevent this form happening?

 

[Herfried K. Wagner [MVP]]

I am logging things to a file but when I kill the app and
restart it, all the other logging is gone. How can I
prevent this form happening?

.... by posting the code you use for writing the file.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

Improve your quoting style:
<http://learn.to/quote>
<http://www.plig.net/nnq/nquote.html>

 

[Tom Leylan]

I am logging things to a file but when I kill the app and
restart it, all the other logging is gone. How can I
prevent this form happening?

It sounds like your app is overwriting the file rather than appending to the
end of it.

 

[Armin Zingler]

I am logging things to a file but when I kill the app and
restart it, all the other logging is gone. How can I
prevent this form happening?

Open the file in the Append mode.

If you use Microsoft.VisualBasic.FileSystem.FileOpen, pass OpenMode.Append
as the 3rd argument.

If you create a System.IO.FileStream object, use System.IO.FileMode.Append
as the file mode.

In addition, each time you write to the file, you should open the file,
write, and close it. If you don't close it after writing, some information
might be lost when the application is killed.

 

[Iceman]

Here you go...

Private Sub logchange(ByVal source As Object, ByVal e As
System.IO.FileSystemEventArgs)

If e.ChangeType = IO.WatcherChangeTypes.Changed
Then

txt_folderactivity.Text &= vbCrLf & strUser
& " on " & strComputer & " - File " & e.FullPath & _
" has been modified - " & Now()

SaveTextToFile
(txt_folderactivity.Text, "c:\Log.txt")

End If

If e.ChangeType = IO.WatcherChangeTypes.Created
Then

txt_folderactivity.Text &= vbCrLf & strUser
& " on " & strComputer & " - File " & e.FullPath & _
" has been created - " & Now()

SaveTextToFile
(txt_folderactivity.Text, "c:\Log.txt")

End If

If e.ChangeType = IO.WatcherChangeTypes.Deleted
Then

txt_folderactivity.Text &= vbCrLf & strUser
& " on " & strComputer & " - File " & e.FullPath & _
" has been deleted - " & Now()

SaveTextToFile
(txt_folderactivity.Text, "c:\Log.txt")

End If

End Sub

Public Sub logrename(ByVal source As Object, ByVal e
As System.IO.RenamedEventArgs)

txt_folderactivity.Text &= vbCrLf & strUser & "
on " & strComputer & " - File " & e.OldName & _
" has been renamed to " & e.Name & vbCrLf

SaveTextToFile
(txt_folderactivity.Text, "c:\Log.txt")

End Sub

 

[Herfried K. Wagner [MVP]]

SaveTextToFile
(txt_folderactivity.Text, "c:\Log.txt")

Please post the code of the 'SaveToFile' method!

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

Improve your quoting style:
<http://learn.to/quote>
<http://www.plig.net/nnq/nquote.html>