Cast from type 'FileInfo' to type 'String' is not valid. *[resolved]*

[ProgrammerJon]

        ' make a reference to a directory
        Dim di As New IO.DirectoryInfo("c:\program files\jp\news\data\")
        Dim diar1 As IO.FileInfo() = di.GetFiles("*.newspaper")
        Dim dra As IO.FileInfo
        'list the names of all files in the specified directory
        For Each dra In diar1
            ListBox1.Items.Add(dra)
        Next

Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Dim filename As String = ListBox1.SelectedItem ' this dos not work
End Sub

When I dubble click listbox1 then I get this error:

***************************************************
An unhandled exception of type 'System.InvalidCastException' occurred in microsoft.visualbasic.dll

Additional information: Cast from type 'FileInfo' to type 'String' is not valid.
***************************************************

I need to be able to add the selected text into a FileOpen command:

FileOpen(1, "C:/program files/jp/news/data/" & filename, OpenMode.Input)

I there another way I can do this?

[hellswraith]

Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Dim filename As String = CStr(ListBox1.SelectedItem) 
End Sub

[ProgrammerJon]

I am still getting the same error.
I think that I might do some more debuging and check if the problem is somewere else.

[hellswraith]

Post the whole code and I will see if I can find the error for you.

[ProgrammerJon]

Ok I attched the program. Not much is working on it becuase I got stuck on the problem early.

Look at the readme.txt file.
Look at the Create.bmp file

Thanks for helping!




Edit: You might want to change the paths of the FileOpen and filesearch because it is set to "C:/program files/jp/news/data"
or you could just create that directory(the program won't do it for you)

[hellswraith]

Ok, I got it figured out for you.

I had to change all your hard coded paths of "C:/program files/jp/news/data/" to Application.StartupPath....which is something I suggest you go ahead and use yourself that way nothing is hard coded.

I marked the two areas that I fixed with what I believe to be the problem. No more errors when I run the app.

[hellswraith]

To make it easier on you so you don't have to download the whole file, here is what I changed:

Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        Dim address As String
        Dim method1 As String
        'This part dosn't work;
 
        '****************I changed this:*************************************
        ' The reason why it didn't work is because the object you stored in the listbox
        ' is a fileinfo object.  You need to create a file info object to get the selected
        ' item out, then get the actual name of the fileinfo object because that is what
        ' your after.
        Dim fi As IO.FileInfo = ListBox1.SelectedItem
        Dim filename As String = fi.Name.ToString()
        '****************End change******************************************
 
        ' You will want to change the path or else create these directories C:/program files/jp/news/data/
        ' If I change the variable filename in the path to listbox1.selecteditem then it dosn't work.
        FileOpen(1, Application.StartupPath & "\" & filename, OpenMode.Input)
        'I have it setup so that the name of the file is the persons name, the first line is the persons address then followed by a comma, then I have the collection method
        Input(1, address)
        Input(1, method1)
 
        '**************I changed this:******************************
        ' Again, you are trying to use a fileinfo object as a string.  I switched
        ' it so it works like I think you wanted, you may have to adjust it.
        ' Just getting the name without an extension on it.
        Dim name As String = IO.Path.GetFileNameWithoutExtension(filename)
        TextBox1.Text = name 'Put the name in Textbox1
        '*****************End change*********************************
 
        TextBox2.Text = address 'Put the address in Textbox2
        Select Case method1 'Decide what RadioButton to check
            Case Is = "normal"
                RadioButton1.Checked = True
            Case Is = "gold"
                RadioButton2.Checked = True
            Case Else
                RadioButton3.Checked = True
        End Select
 
    End Sub

[ProgrammerJon]

Thanks, I works good now!