[Problem]System.IndexOutOfRangeException

[Mr - Devil]

Hey there,
I don't know what is wrong in Code ..
Please anyone tell me the right code for this project (New Media Player)

Public Class Form2
    ' Load Items in PlayList '
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ofd As New OpenFileDialog
        ofd.InitialDirectory = "C:\Users\Adminastrator\Desktop"
        ofd.Multiselect = True
        ofd.ShowDialog()
        For I As Integer = 0 To ofd.FileName.Count - 1
            ListBox1.Items.Add(ofd.FileNames(I))
            ListBox2.Items.Add(ofd.SafeFileNames(I))
        Next
        If ListBox1.Items.Count = 0 = True Then
            MsgBox("Please Load Items", MsgBoxStyle.Critical, "File Error !")
        Else
            ListBox1.SelectedIndex = 0
            ListBox2.SelectedIndex = 0
        End If
    End Sub
    'If Playlist2 Selected Index Changes, Playlist1 Selected Index changes'
    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        ListBox1.SelectedIndex = ListBox2.SelectedIndex
    End Sub
End Class

It's the code to playlist of my project

[Darkangel44]

Hey,

on the first look, I can't spot any mistakes. If you use Visual Studio, you can tell us where the error occurs - that would be very helpful to spot the reason of your problem.


Regards,
DarkAngel44

[Mostey]

OpenFileDialog.FileName is a string containing all file names that were selected in the dialog. The length of that string is not what you want for iterating through each individual file name.

[Mr - Devil]

Originally Posted by Mostey

OpenFileDialog.FileName is a string containing all file names that were selected in the dialog. The length of that string is not what you want for iterating through each individual file name.

I don't understand you sorry ...
The wrong in
ListBox1.Items.Add(ofd.FileNames(I))

[const*]

Originally Posted by Mr - Devil

I don't understand you sorry ...
The wrong in
ListBox1.Items.Add(ofd.FileNames(I))

Of course it is, you try to add an array where you should add a single variable.

[tolio]

Use the correct property in your for loop.

Gets or sets a string containing the file name selected in the file dialog box.

vs.

Gets the file names of all selected files in the dialog box.

[Mr - Devil]

Originally Posted by *static_cast

Of course it is, you try to add an array where you should add a single variable.

Look,should I replace Integer with Single or ?

Originally Posted by tolio

Use the correct property in your for loop.




vs.

I'll test
[Edit] I don't understand anything ,I'm beginner.

[Mostey]

Originally Posted by Mr - Devil

[Edit] I don't understand anything ,I'm beginner.

Then you shouldn't just copy and paste code you do not understand. If you can't fix such trivial problems by yourself (even if we tell you what the problem is and how you can fix it), you should rather learn the basics than asking for complete code.

[Mr - Devil]

Originally Posted by Mostey

Then you shouldn't just copy and paste code you do not understand. If you can't fix such trivial problems by yourself (even if we tell you what the problem is and how you can fix it), you should rather learn the basics than asking for complete code.

Listen , I'd learnt Vb coding from 2 years ... but now I forgot every thing about it ..
and the code not copy and paste I created it.
Man I tested the program when I published it and it's working ..
but when I done load the files .. it gives me a warning msgbox then I press continue than it's working ..
so I want to remove this msgbox only

[Shawak]

ofd.FileName.Count - 1 => ofd.FileNames.Count - 1

[Mr - Devil]

Originally Posted by Shawak

ofd.FileName.Count - 1 => ofd.FileNames.Count - 1

Problem Solved ...
big thanks to you Shawak