[2005] open file dialog problem

[champ0342]

I am trying to use the open dialog to allow the user to select the file being computed. I think my code is right, but visual basic says that 'type stream has not been defined'.

Any help is appreciated. Code below.

champ0342

Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim myStream As Stream = Nothing
    Dim ofd As New OpenFileDialog()

    ofd.InitialDirectory = "c:\"
    ofd.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
    
    If ofd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
        Try
            myStream = ofd.OpenFile()
            If (myStream IsNot Nothing) Then
                
            End If
        Catch Ex As Exception
            MessageBox.Show("Cannot read file from disk. Try another file)
        Finally
            If (myStream IsNot Nothing) Then
                
            End If
        End Try
    End If
End Sub

[xorcst]

Dim fileStream As System.IO.FileStream = Nothing
try that

[champ0342]

Thanks. That kinda did it, but I had to change one part:

Dim fileStream As System.IO.Stream = Nothing

by making it system.io.stream instead of system.io.filestream it works under option strict.

[Icyculyr]

try this

Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim ofd As New OpenFileDialog()

    Dim MyValue As String = ""
    ofd.InitialDirectory = "c:\"
    ofd.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
    
    If ofd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
        Using sr As New StreamReader(ofd.FileName)
            MyValue = sr.ReadToEnd()
        End Using
    End If
End Sub

That should work, and if the file is not found
use ofd.CheckFilePath, or a property with a similar name which checks the file exists...

[champ0342]

A new challenger approaches.....

when it opens the file it gives me an error says that ' the system cannot find the file .../bin/debug/system.io.filestream'


does anyone know what that error means?

[xorcst]

think its HAS TO BE
system.io.FILESTREAM
and not system.io.stream
since you will be using all the funcitons that deals with FILES.

[Icyculyr]

Sorry, I forgot to mention, you need to do this at the top of your code (above everything)

Imports System.IO

or change the streamreader code to

Using sr As New System.IO.StreamReader(ofd.FileName)
            MyValue = sr.ReadToEnd()
        End Using

[champ0342]

I need to split the line into two sections. How do I do that. I tried this code:

MyValue = sr.ReadLine.Split

but it said that: "value of a 1d array can not be converted to a string".

[Icyculyr]

Declare MyValue As An Array

Dim MyValue() As String

MyValue = sr.ReadLine.Split()