Filestream problem

[khan]

Hi guys

I see blue line underneat the word FileStream in the following code in
line 2.
Can any one help me to find out what am I missing
Imports System.IO
Imports System.Windows. Forms
Public Class Form1
Inherits System.Windows. Forms.Form

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s)Handles Button1.Click
1 Dim DestinationLoc = "c:\Stream. txt"
2 Dim FS As FileStream = New File.Open(Desti nationLoc,
FileMode.OpenOr Create, _
3 FileAccess.Read Write)
4 Dim s As New StreamWriter(FS )
5 s.BaseStream.Se ek(0, SeekOrigin.End)
6 s.WriteLine("Th is is an example of using file handling
concepts in VB .NET.")
7 s.WriteLine("Th is concept is interesting.")
8 s.Close()

End Sub
End Class

[khan]

Re: Filestream problem

I am using vb.net 2003

[HKSHK]

Re: Filestream problem

Dear khan,

from the VB.NET help:
Imports System
Imports System.IO

Class Test
Public Shared Sub Main()
' Create an instance of StreamWriter to write text to a file.
Dim sw As StreamWriter = New StreamWriter("T estFile.txt")
' Add some text to the file.
sw.Write("This is the ")
sw.WriteLine("h eader for the file.")
sw.WriteLine("-------------------")
' Arbitrary objects can also be written to the file.
sw.Write("The date is: ")
sw.WriteLine(Da teTime.Now)
sw.Close()
End Sub
End Class

Best Regards,

HKSHK

khan wrote:

Hi guys
>
I see blue line underneat the word FileStream in the following code in
line 2.
Can any one help me to find out what am I missing
Imports System.IO
Imports System.Windows. Forms
Public Class Form1
Inherits System.Windows. Forms.Form
>
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s)Handles Button1.Click
1 Dim DestinationLoc = "c:\Stream. txt"
2 Dim FS As FileStream = New File.Open(Desti nationLoc,
FileMode.OpenOr Create, _
3 FileAccess.Read Write)
4 Dim s As New StreamWriter(FS )
5 s.BaseStream.Se ek(0, SeekOrigin.End)
6 s.WriteLine("Th is is an example of using file handling
concepts in VB .NET.")
7 s.WriteLine("Th is concept is interesting.")
8 s.Close()
>
End Sub
End Class
>

[Tom Shelton]

Re: Filestream problem


khan wrote:

Hi guys
>
I see blue line underneat the word FileStream in the following code in
line 2.
Can any one help me to find out what am I missing
Imports System.IO
Imports System.Windows. Forms
Public Class Form1
Inherits System.Windows. Forms.Form
>
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s)Handles Button1.Click
1 Dim DestinationLoc = "c:\Stream. txt"
2 Dim FS As FileStream = New File.Open(Desti nationLoc,
FileMode.OpenOr Create, _
3 FileAccess.Read Write)

Take out the new. File.Open returns a FileStream object - you don't
have to create it:

Dim fs As FileStream = File.Open (DestinationLoc , _
FileMode.OpenOr Create, FileAccess.Read Write)

HTH
--
Tom Shelton

[Tom Shelton]

Re: Filestream problem


khan wrote:

Hi guys
>
I see blue line underneat the word FileStream in the following code in
line 2.
Can any one help me to find out what am I missing
Imports System.IO
Imports System.Windows. Forms
Public Class Form1
Inherits System.Windows. Forms.Form
>
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s)Handles Button1.Click
1 Dim DestinationLoc = "c:\Stream. txt"
2 Dim FS As FileStream = New File.Open(Desti nationLoc,
FileMode.OpenOr Create, _
3 FileAccess.Read Write)
4 Dim s As New StreamWriter(FS )
5 s.BaseStream.Se ek(0, SeekOrigin.End)
6 s.WriteLine("Th is is an example of using file handling
concepts in VB .NET.")
7 s.WriteLine("Th is concept is interesting.")
8 s.Close()
>
End Sub
End Class

Hmm, looking further - you could simplify this code:

Dim s As New StreamWriter ("c:\Stream.txt ")
s.WriteLine ("This....")
s.WriteLine ("This con...")
s.Close ()

Of course, you might want to do some error trapping in there in real
life :)

--
Tom Shelton